dotted Re: Re: syntax-rules: when, unless

ドット対でも書けるんですね。。(begin . body) って、最初見たとき「？？？」でしたよ。

• vallog: 戻り値 Re: syntax-rules: when, unless

	(define-syntax my-when
	(syntax-rules ()
	((_ pred . body)
	(if pred
	(begin . body)))))
	(my-when #t (display 'hoge))
	;; hoge#<undef>
	(mac (my-when #t (display 'hoge)))
	;; (#<identifier user#if> #t
	;; (#<identifier user#begin> (display 'hoge)))
	(my-when #t (print 'hoge)(print 'fuga))
	;; hoge
	;; fuga
	;; #<undef>
	(mac (my-when #t (print 'hoge)(print 'fuga)))
	;; (#<identifier user#if> #t
	;; (#<identifier user#begin>
	;; (print 'hoge)
	;; (print 'fuga)))

view raw dotted.scm hosted with ❤ by GitHub