Mercurial > hg > Papers > 2010 > kent-master
view sources/scheme-cont-out.scmout @ 7:8ef81ff8cb52
emended.
author | kent <kent@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 12 Feb 2010 13:10:57 +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