changeset 195 | eacc4e318dae |
parent 194 | 84461d0a5c25 |
child 196 | 8a7a9ab12cba |
--- a/experiments/partial-eval/pe2.scm Sat Jan 17 10:58:35 2009 +1300 +++ b/experiments/partial-eval/pe2.scm Sat Jan 17 10:59:03 2009 +1300 @@ -332,14 +332,16 @@ ((null? x)) (else (write x) (newline)))) -(define (r) +(define (r* repl-eval) (display ">>> ") (let ((x (read))) (if (eof-object? x) 'done - (begin (write (eval x)) + (begin (write (repl-eval x)) (newline) - (r))))) + (r* repl-eval))))) + +(define (r) (r* eval)) (eval `(define-global! 'global-env ',global-env)) (r)