; REPL for our R5RS Pixley interpreter.
; November 2010, Chris Pressey, Cat's Eye Technologies.

(load "pixley.scm")

; A Pixley Read-Evaluate-Print Loop (REPL) with which one can experiment
; with our implementation of the Pixley language.
(define repl
  (lambda ()
    (begin
      (display "pixley> ")
      (let* ((line   (read))
             (result (interpret-pixley line)))
	(display result)
	(newline)
	(repl)))))

(repl)