0166デフォルトの名無しさん
2015/07/22(水) 13:29:11.06ID:wcjgZ6Dxdefineでも問題なさそうだけど。
(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