- 153 名前：デフォルトの名無しさん mailto:sage [2008/03/13(木) 18:40:30 ]
- もっとちゃんとしたければ
(define-syntax letcc
(syntax-rules ()
((letcc var . body)
(call-with-current-continuation
(lambda (var) . body)))))
(define-syntax try
(syntax-rules ()
((try var a . b)
(letcc success
(letcc var (success a)) . b))))
