type-tag contents attach-tag この三つの手続きを書き換える問題。 どう書き換えるかというと、 普通の数字(なんていうんだ？lispのリテラル？): 1とか2とか と システムで考えてきたscheme-number: (scheme-number 1) とか(scheme-number 2) を同等に扱え…

2ヶ月も間が空いている。。。 とりあえず、写経すりゃ動く。 p110-p113.scm #!/usr/local/bin/gosh ;; -*- coding: utf-8 -*- ;;; 3.3.3 put & get (define (make-table) (let ((local-table (list '*table*))) (define (lookup key-1 key-2) (let ((subtabl…