Mercurial > hg > Papers > 2010 > kent-master
view paper/sources/scheme-cont-out.scmout @ 10:3d9addf62d0b
organized repository.
author | kent <kent@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Tue, 16 Feb 2010 14:35:36 +0900 |
parents | |
children |
line wrap: on
line source
gosh> (define (cont-test i) (print "before") (call/cc (lambda (k) (set! cont k))) (print "after") (set! i (+ 1 i)) i) cont-test gosh> (cont-test 10) before after 11 gosh> (cont) after 12 gosh> (cont) after 13 gosh> (cont-test 2222) before after 2223 gosh> (cont) after 2224