syntax-rules: update-if-true!

プログラミングGauche って、マクロの章すごく少ないですよね・・・。syntax-rules の練習問題というか例題というか、そういうのをたくさん見たい。ソース読め？

• （PDF）Advanced Scheme Techniques - Some Naughty Bits

	;; update-if-true!
	(define-syntax cond-set!
	(syntax-rules ()
	((_ pred var init)
	(if pred
	(set! var init)))
	((_ pred var1 init1 var2 init2 ...)
	(if pred
	(begin
	(set! var1 init1)
	(set! var2 init2) ...)))))
	(define-syntax update-if-true!
	(syntax-rules ()
	((_ (pred var))
	(let ((p pred))
	(cond-set! p var p)))
	((_ (pred1 var1)(pred2 var2) ...)
	(begin
	(update-if-true! (pred1 var1))
	(update-if-true! (pred2 var2))
	...))))
	(define (test x y z)
	(let ((x-is-big #f)
	(y-is-zero #f)
	(z-is-string #f))
	(update-if-true!
	((> x 5) x-is-big)
	((zero? y) y-is-zero)
	((string? z) z-is-string))
	(values x-is-big y-is-zero z-is-string)))

view raw update-if-true-bang.scm hosted with ❤ by GitHub

追記

コメント欄より。

cond-set!の2番目の節はおそらくやりたいことと違うのではないかと推察します。
init2だけが複数扱いになり、var2が繰り返されます。
(cond-set! a b c d e f g)
は
(if a (begin (set! b c) (set! d e) (set! d f) (set! d g)))
になります。(2番目以降、set!されてるのはすべてd)

修正してみました。

• vallog: Re: update-if-true (cond-set!)