Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
ne)
0))))
( lambda () counter )))
Guardamos os dois fechos nas variáveis show e inc,
(eval# ’(def show (car (cdr inc-show))) ne)
(eval# ’(def inc (car inc-show)) ne)
e finalmente verificamos que nosso interpretador de fato implementa fechos corretamente:
(eval# ’(show) ne)
0
(eval# ’(inc) ne)
(eval# ’(show) ne)
1
Finalmente, construiremos um REPL!
( define o-repl
( lambda (in out )
( let (( env ( list ’())))
( for-each ( lambda ( name )
( eval # ( list ’def name ( scheme-eval name ))
env ))
primitive-names )
( eval # ’( def * prompt * " toylisp :: ") env )
( let loop ()
( display ( eval # ’* prompt * env ) out )
( let (( forma ( read in )))
( display ( eval # forma env ) out )
( newline )
( loop ))))))
Versão Preliminar
Iniciamos o REPL de nosso toylisp assim:
( o-repl ( current-input-port )
( current-output-port ))
[ 27 de outubro de 2010 at 15:47 ]
155