Lisp in Small Pieces 1.8 Starting the Interpreter

これもよく見る形ですね。

(define (chapter1-scheme)
  (define (toplevel)
     (display (evaluate (read) env.global))
     (toplevel) )
  (toplevel) )