Lisp Scheme Part40 [転載禁止]©2ch.net

[166 デフォルトの名無しさん 2015/07/22(水) 13:29:11.06 ID:wcjgZ6Dx]

>>162でスゲーわかった気になったのに、>>163-164で全然わからなくなりました。
defineでも問題なさそうだけど。

(define my_or1
(syntax-rules ()
((_ a b) (or a b))))

(define-syntax my_or2
(syntax-rules ()
((_ a b) (or a b))))

(my_or1 #t (begin (print "!") #f)) ===> #t
(my_or2 #t (begin (print "!") #f)) ===> #t