LISP Scheme Part4
■ このスレッドは過去ログ倉庫に格納されています
0501デフォルトの名無しさん
NGNGその場の継続を取得した後一旦外に脱出して、
後で再開する試みは成功するでしょうか?
(define (test)
(let ((resume #f))
(call/cc(lambda(suspend)
(with-output-to-file "test" (lambda() (call/cc(lambda(cont)
(set! resume cont)
(suspend))))) ; with
(if (not resume) (error "ポートが開けなかった"))
;ファイル'test'に"hello world\n"と出力
(display "hello world")(newline)
(resume)
)) ; suspend
)) ;let def test
■ このスレッドは過去ログ倉庫に格納されています