From 4697b7fd6f542fd20f0d991902e2f418291753c1 Mon Sep 17 00:00:00 2001
From: Jon Rafkind <rafkind@racket-lang.org>
Date: Wed, 26 Aug 2009 21:43:42 +0000
Subject: [PATCH] use gensym and dont keep track of position

svn: r15808
---
 collects/scheme/generator.ss | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/collects/scheme/generator.ss b/collects/scheme/generator.ss
index 11e16d74b8..b60aebd383 100644
--- 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))))))])