go-fringe.go: Language change: `closed' function on channels has gone.

[fringe] / scheme-fringe.scm

diff --git a/scheme-fringe.scm b/scheme-fringe.scm
index 4ddb079..47b1266 100644 (file)
--- a/scheme-fringe.scm
+++ b/scheme-fringe.scm
@@ -3,8 +3,6 @@
 ;;; Scheme implementation of a `same-fringe' solver.  Assumes Chicken, but
 ;;; should port easily.
 
-(use syntax-case)                      ; Chicken-specfic
-
 ;;;--------------------------------------------------------------------------
 ;;; Utilities.
 
@@ -76,8 +74,8 @@
     ((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