;;; Scheme implementation of a `same-fringe' solver. Assumes Chicken, but
;;; should port easily.
-(use syntax-case) ; Chicken-specfic
-
;;;--------------------------------------------------------------------------
;;; Utilities.
((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