SICPからの変更(gaucheでSICP-schemeを動かす) SICPのeval・applyをEval・Applyとして定義し、gaucheのeval・applyと共存させる。 (define false #f) (define true #t)追加。self-evaluating? に ((boolean? exp) #t) 追加。setup-environment の中を (define-variable! 'true #t initial-env) と (define-variable! 'false #f initial-env) に変更。true/falseは入力できるが出力は#t/#fになる。 (define apply-in-underlying-scheme apply) 追加。 (Error)追加。 driver-loop の中で継続を設定して、メッセージ出力後に