;; a (define (lookup-variable-value var env) (let ((target (env-loop var env (lambda (var vars vals) (car vals))))) (cond ((eq? target '*unassigned*) (error "Unassigned variable" var)) (target target) (else (error "Unbound variable" var)))…

ちょっとしたミスにかなり時間取られました． スコープがどうなってるか調べようと色々手続き作ろうしていたらよくわからないエラーが出てしまい． はじめはappって名前のlambda式をdefineするとエラーが出るっていうよくわからない症状で． 途中でmy-apply…