Lisp Scheme Part19 - 暇つぶし2ch

Lisp Scheme Part19 ..

567:デフォルトの名無しさん
08/02/15 01:05:33
初心者です．マクロについて質問させてください．
以前に出ていた日本語のScheme本から(一部抜粋)
(define-syntax Cond (syntax-rules (else =>)
;; #0
((Cond (else result1 result2 ...)) (begin result1 result2 ...))
;; #1
((Cond (test => result)) (let ((temp test)) (if temp (result temp))))
;; #2
((Cond (test => result) clause1 clause2 ...)
(let ((temp test)) (if temp (result temp) (Cond clause1 clause2 ...))))
;; #3
((Cond (test)) test)
;; #4
((Cond (test) clause1 clause2 ...) (or test (Cond clause1 clause2 ...)))
;; #5
((Cond (test result1 result2 ...)) (if test (begin result1 result2 ...)))
;; #6
((Cond (test result1 result2 ...) clause1 clause2 ...)
(if test (begin result1 result2 ...) (Cond clause1 clause2 ...)))))
(let ((=> #f)) (Cond (#t => 'ok)))
scmだと本の解説通り ok と表示されるのですが， scm ではないある処理系に
読み込ませたところ，'ok がprocedureではない，というエラーになりました．
どうやら「=>」に#fが束縛されておらず keywordである「=>」として扱われたようです．
正しくは，すべてのsymbolの束縛関係が解決されてから syntaxに渡され
(て，最終的にokとな)ると考えて良いのでしょうか．

次ページ

続きを表示

1を表示