08/06/18 15:29:02
>>681
これで一応動く（PrettyBigモードとか）。SICPの学習には不便しないだろう。
（ただしR6RSとは共存出来ない。）
(define-syntax cons
(syntax-rules ()
((_ a b) (mcons a b))))
(define-syntax set-car!
(syntax-rules ()
((_ a b) (set-mcar! a b))))
(define-syntax set-cdr!
(syntax-rules ()
((_ a b) (set-mcdr! a b))))