pcdemo2.scm

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

(define queue (make-queue))

(define (wrap thunk)
  (lambda ()
    (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 100000)
                                (set! counter 0)
                                (format #t "~s~%" (gc-stat)))
                              (yield))))))

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