関数適用
(define (eval-application exp env) ; exp = (f a b c ...)
  (let ((lst (map (lambda (e) (base-eval e env)) exp)))
    (base-apply (car lst) (cdr lst))))

一覧 前へ 次へ