Update generator syntax

test.scm

@@ -85,13 +85,13 @@
   (test
    (assert-equal (argmin cdr < '(a . 5) '(b . 2) '(c . 3)) '(b . 2))))
 
-(define-test make-generator
+(define-test generator
   (test
    (define number-generator
-     (make-generator (lambda (yield)
-		       (let loop ([i 1])
-			 (yield i)
-			 (loop (1+ i))))))
+     (generator
+      (let loop ([i 1])
+	(yield i)
+	(loop (1+ i)))))
    (assert-equal (number-generator) 1)
    (assert-equal (number-generator) 2)
    (assert-equal (number-generator) 3)