Lisp Scheme Part22 - 暇つぶし2ch

Lisp Scheme Part22 at TECH

686:デフォルトの名無しさん
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))))

次ページ

続きを表示

1を表示