(module repl mzscheme (require (only "expander.ss" ex:repl)) (define mzscheme-eval (current-eval)) (namespace-require '(planet "expander.ss" ("dvanhorn" "r6rs-expander-vantonder.plt" 2))) (parameterize ((current-prompt-read (λ () (printf "R5.97RS> ") (read))) (current-eval (λ (x) (parameterize ((current-eval mzscheme-eval)) (ex:repl (list (cdr x))))))) (read-eval-print-loop)) (newline) (exit) ) ; end of module