Scheme generators

gistfile1.scm

(library (generators)
         (export 
           yield->
           next-<
           begin-<
           )

         (import (rnrs)
                 (delimcc-simple-ikarus)
                 )

         (define (next-< stream)
           (let*
             ([val-cont (reset ((cdr stream) 'End))])
             (cond [(eq? 'End val-cont) 'End]
                   [else (let* 
                           ([val (car val-cont)]
                            [cont (cdr val-cont)])
                           (cons val cont))])))

         (define (begin-< stream)
           (let* ([start-val-cont (reset (stream))])
             start-val-cont))

         (define (yield-> val)
           (shift k (cons val k)))


         )