X-Git-Url: https://git.distorted.org.uk/~mdw/fringe/blobdiff_plain/1a6b8421eab718d5f2b09d523f8f64a6fadbc422..226de6c60bf985dbec6ef025f3759b7d1795655d:/scheme-fringe.scm

diff --git a/scheme-fringe.scm b/scheme-fringe.scm
index 5279fbf..47b1266 100644
--- a/scheme-fringe.scm
+++ b/scheme-fringe.scm
@@ -74,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