トップレベルループ
(define (REP-loop)
  (display "input  > ")
  (let ((answer (base-eval (read) init-env)))
    (display "output : ")
    (write answer))
  (newline)
  (REP-loop))
> (REP-loop)
input  > (+ 1 2)
output : 3
input  >

一覧 前へ 次へ