cnvr.scm

gistfile1.scm

(define (printfoobar)
  (define place (zowie))
  (place)
  (values))

(define (printfoo)
  (define place (zowie))
  (values))

(define (zowie)
  (call/cc (lambda (return)
             (print 'foo)
             (call/cc (lambda (printbar)
                        (return printbar)))
             (print 'bar)
             (lambda () #f)))) ;;??? #fにしたいんだけど……

(pirntfoo)
;>> foo

(pirntfoobar)
;>> foo
;>> bar