abc or abbbbbbbb... pasted by sethalves on Sat Dec 27 17:22:59 2014

(define run-me-a #f)
(define run-me-b #f)

(display "a\n")

(call-with-current-continuation
 (lambda (cont)
   (set! run-me-a cont)
   (call-with-current-continuation
    (lambda (cont)
      (set! run-me-b cont)
      (run-me-a #t)))))

(display "b\n")

(run-me-b #t)

(display "c\n")

always abbbbb... added by sethalves on Sat Dec 27 17:43:51 2014

(let ((run-me-a #f)
      (run-me-b #f))

  (display "a\n")

  (call-with-current-continuation
   (lambda (cont)
     (set! run-me-a cont)
     (call-with-current-continuation
      (lambda (cont)
        (set! run-me-b cont)
        (run-me-a #t)))))

  (display "b\n")

  (run-me-b #t)

  (display "c\n"))