(module repl mzscheme
  (require (only "expander.ss" ex:repl)
           (only "reader.ss" readtable))

  (define mzscheme-eval (current-eval))  
  (namespace-require 
   '(planet "expander.ss" ("dvanhorn" "r6rs-expander-vantonder.plt" 2)))

  (parameterize ((read-curly-brace-as-paren #f) ;; Reserved for future use.
                 (read-accept-box #f)
                 (read-accept-compiled #f)
                 (read-accept-graph #f)
                 (read-accept-dot #t)
                 (read-accept-infix-dot #f)
                 (read-accept-quasiquote #t)
                 (read-accept-reader #f)
                 
                 (current-readtable readtable)  ;; Handles #!r6rs, #vu8, etc.
                 (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