gistfile1.sls

(define (make-simple-generator iterable transformer)
   (define (re-entry return)
       (define (iter-action element)
           (define (escaper new-re-entry)
               (set! re-entry new-re-entry)
               (return ( transformer element)))
       (call-with-current-continuation escaper))
       (for-each iter-action iterable)
       (return 'Let-it-end!))
 
   (lambda ()(call-with-current-continuation re-entry)))
 
 
(define my-gen (make-simple-generator '(1 2 3) (lambda (x)(format "Easy! ~A"(* 2 x)))))
 
(my-gen)
(my-gen)
(my-gen)
(my-gen)
(my-gen)