- 196 名前：デフォルトの名無しさん mailto:sage [2008/05/29(木) 23:19:58 ]
- ;;;case-A
(define continuation #f)
(let loop ((counter 1))
(if (< counter 2)
(begin
(if (= counter 1)
(call-with-current-continuation
(lambda (k) (set! continuation k))))
(write counter) (newline)
(loop (+ counter 1)))
'finished)) ;==> 1finished
(continuation #t) ;==> 1finished
(continuation #t) ;==> 1finished
(continuation #t) ;==> 1finished
