use gensym and dont keep track of position

svn: r15808
2009-08-26 21:43:42 +00:00 · 2009-08-26 21:43:42 +00:00 · 4697b7fd6f
commit 4697b7fd6f
parent 56c4fe6c7d
1 changed files with 3 additions and 3 deletions
--- a/collects/scheme/generator.ss
+++ b/collects/scheme/generator.ss
@ -17,7 +17,7 @@
  (syntax-rules ()
    [(_ (args ...) body0 bodies ...)
     (lambda (args ...)
-       (let* ([last (lambda () (void))]
+       (let* ([last (gensym)]
              ;; current is a function that invokes user code and
              ;; produces values
              [current
@ -38,8 +38,8 @@
                       ;; set! is ugly but can we do better?
                       (set! current next)
                       value))
-                   add1
-                   0
+                   void
+                   (void)
                   (lambda (x) (not (eq? last current)))
                   (lambda (v) (not (eq? last current)))
                   (lambda (x v) (not (eq? last current))))))])