動的寿命 1
- 呼び出された手続きの本体が始まる時，その動的寿命に入る
- 呼び出された手続きが戻る時，その動的寿命は終わる
(dynamic-wind (lambda () (display "a")) (lambda () (display "b")) (lambda () (display "c"))) abc#<undef> gosh>
動的寿命 2
- 動的寿命の期間外にとらえられた継続が，実行がその動的寿命の中にあるときに起動されたならば，その時もまた，その動的寿命は終わる。
(define cont '()) cont (begin (display "1") (display (call/cc (lambda (c) (set! cont c) "2"))) (display "3")) 123#<undef> (dynamic-wind (lambda () (display "a")) (lambda () (display "b") (cont "2 again")) (lambda () (display "c"))) abc2 again3#<undef>
動的寿命3
- (call/cc を使って) 動的寿命の期間中にとらえられた継続が，実行がその動的寿命の中にないときに起動されたならば，その時もまた，その動的寿命に入る。
(define cont '()) cont (dynamic-wind (lambda () (display "a")) (lambda () (display "1") (display (call/cc (lambda (c) (set! cont c) "2"))) (display "3")) (lambda () (display "c"))) a123c#<undef> gosh> (cont "2 again") a2 again3c#<undef>
