Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
• Avalia os argumentos formais no ambiente atual (env);
• Extende o ambiente do procedimento com os vínculos avaliados para os parametros
formais;
• Chama eval-seq para avaliar todas as formas no corpo do procedimento com este
ambiente extendido.
6.3.1.7 Procedimentos auxiliares
Precisaremos do eval nativo de Scheme para inicializar o ambiente de nosso interpretador.
( define scheme-eval
( lambda ( exp )
( eval exp ( interaction-environment ))))
Guardamos em primitive-names uma lista de nomes que usaremos do ambiente
nativo Scheme.
( define primitive-names
’(= < > string = string-append + - * /
list car cdr display newline list cons ))
( define primitive-name
( lambda (p)
( member p primitive-names )))
O predicado primitive-proc, usado em apply#, simplesmente verifica se um procedimento
é um daqueles que incluímos na lista de procedimentos nativos:
( define primitive-proc
( lambda (p)
Versão Preliminar
( member p ( map scheme-eval primitive-names ))))
6.3.2 Usando o interpretador
Para testar nosso interpretador, criamos um ambiente vazio:
( define ne ( list ’()))
Incluimos no ambiente os vínculos para diversos procedimentos padrão de Scheme:
[ 27 de outubro de 2010 at 15:47 ]
153