repl.ss
(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