pcdemo5.scm

(use data.queue)
(use gauche.partcont)

(define queue (make-queue))

(define (wrap thunk)
  (lambda ()
    (guard (e (else (print "catch!")
                    (raise e)))
      (reset
        (thunk)))))

(define (yield)
  (shift cont
    (enqueue! queue (wrap cont))))

(define (main args)
  (enqueue! queue (wrap (lambda ()
                          (let1 counter 0
                            (while #t
                              (inc! counter)
                              (when (= counter 10)
                                (error "err"))
                              (yield))))))

  (while #t
    (let1 next (dequeue! queue #f)
      (when next
        (next))))
  0)