Mercurial > hg > Papers > 2010 > kent-master
view paper/sources/scheme-cont.scm @ 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
(define cont #f) (define (cont-test i) (print "before") (call/cc (lambda (k) (set! cont k))) (print "after") (set! i (+ 1 i)) i) (cont-test 1) ;(define (leaf-count/cps tree cont) ; (if (pair? tree) ; (leaf-count/cps (car tree) ; (lambda (n) ; (leaf-count/cps (cdr tree) ; (lambda (m) (cont (+ n m)))))) ; (cont 1))) ; ;(define tree '((a . b) (c . d) . e))