Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
( eval-seq ( cdr exp ) env )))))
O procedimento eval# é mostrado a seguir.
( define eval #
( lambda ( exp env )
( cond (( auto-eval exp )
exp )
(( var exp )
( find-in-env exp env ))
(( is-a exp ’def )
( do-def ! exp env ))
(( is-a exp ’set !)
( do-set ! exp env ))
(( is-a exp ’quote )
( cadr exp ))
(( is-a exp ’if)
( do-if exp env ))
(( is-a exp ’lambda )
( make-proc exp env ))
(( is-a exp ’begin )
( eval-seq ( cdr exp ) env ))
(( proc exp )
( apply # ( eval # ( car exp ) env )
( else
( cdr exp )
env ))
Versão Preliminar
( error " Eval não sabe o que fazer com " exp )))))
[ 27 de outubro de 2010 at 15:47 ]
151