define
(define (eval-define exp env) ; exp = (define var body)
  (let* ((var (cadr exp))
         (body (caddr exp))
         (value (base-eval body env)))
    (define-value! var value env) ; env の最外フレームに(var . value)を加える。
    var))

一覧 前へ 次へ