変数
(define (eval-var exp env) ; exp = var
  (let ((pair (get exp env)))
    (if (pair? pair)
        (cdr pair)
        (error (list 'eval-var: 'unbound 'variable: exp)))))

一覧 前へ 次へ