Load
(define (eval-load exp env) ; exp = (load filename)
  (define port (open-input-file (cadr exp)))
  (define (load-local)
    (let ((input (read port)))
      (if (eof-object? input)
          (begin (close-input-port port) 'done)
          (begin (base-eval input env)
                 (load-local)))))
  (load-local))

一覧 前へ 次へ