Mercurial > hg > Papers > 2010 > kent-master

annotate paper/sources/scheme-cont-out.scmout @ 10:3d9addf62d0b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
organized repository.
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Tue, 16 Feb 2010 14:35:36 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
10
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 gosh> (define (cont-test i)
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 (print "before")
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 (call/cc (lambda (k) (set! cont k)))
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 (print "after")
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 (set! i (+ 1 i))
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 i)
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 cont-test
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 gosh> (cont-test 10)
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 before
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 after
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 11
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 gosh> (cont)
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 after
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 12
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 gosh> (cont)
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 after
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 13
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 gosh> (cont-test 2222)
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 before
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 after
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 2223
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 gosh> (cont)
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 after
3d9addf62d0b organized repository.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 2224