Shoji Kuzukami
kuzuk****@manba*****
2004年 8月 24日 (火) 15:16:58 JST
On Tue, Aug 24, 2004 at 03:15:02PM +0900, Shoji Kuzukami wrote: すいませんサンプルコードを間違えてました． > (define-syntax call-with-binding (syntax-rules () > ((_ "sec" lam (%tmp-name a) ...) > (let > ((%tmp-name a) ...) > (lam %tmp-name ...))) > ((_ lam a ...) > (call-with-binding "sec" (%t a) ...)))) こちらが正解です． (define-syntax call-with-binding (syntax-rules () ((_ "sec" lam (%tmp-name a) ...) (let ((%tmp-name a) ...) (lam %tmp-name ...))) ((_ lam a ...) (call-with-binding "sec" lam (%t a) ...))))
