--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/paper/sources/scheme-cont.scm	Tue Feb 16 14:35:36 2010 +0900
@@ -0,0 +1,19 @@
+(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))