遅延対とリストを正当に印字できるようにする． consへのタグづけがどうしてもうまくいかなくてここを参考にしました． SICP Exercise 4.34 | Weiqun Zhang's Blog 前回からの変更箇所のみ (define (eval exp env) (cond ((self-evaluating? exp) exp) ((var…

遅延リストの実装に合わせて，quoteを遅延リストに対応させる． (car '(a b c))で正しくaが表示できるようにする． make-lambdaの(make-quote (car obj))のところ，始め(car obj)だけにしていたら， 数字ではうまくいくのに'(a b c)だとunbound variable: a…

遅延度の高い遅延リストではcar部も遅延されているので未定義の変数を使って構成するできる． ;;; M-Eval input: (define my-stream (cons x y)) ;;; M-Eval value: ok ;;; M-Eval input: my-stream ;;; M-Eval value: (compound-procedure (m) ((m x y)) <procedure-env>) </procedure-env>…