本文中の変形であればうごく． ;; ３章で定義した手続きとマクロ (define (integral integrand initial-value dt) (define int (cons-stream initial-value (add-streams (scale-stream integrand dt) int))) int) (define (stream-map proc . argstreams) (…

lambdaを評価すると新しくフレームが作られます． これを防ぐためにletでunassignmentを束縛するのではなくdefineで内部定義します． define-variable!はフレームに新たな変数を追加する手続きなので余計なフレームは作られません． scheme (define (scan-ou…

(define (append x y) (if (null? x) y (cons (car x) (append (cdr x) y)))) これが動かなかったんですよ． はじめはeval-sequenceで(first-exp exp)をevalしていなかったとかそういうのだったんですけど， どうしても動かなくて． debug printでも(null? x…