((define-generator (name . args) . body)
(define (name . args)
(make-coroutine (lambda ()
- (begin . body)
- (resume (calling-coroutine) #f #f)))))))
+ (begin . body)
+ (resume (calling-coroutine) #f #f)))))))
(define (yield object)
;; Yield OBJECT from a generator. The generator protocol returns two