reformat

svn: r15806
2009-08-26 21:07:42 +00:00 · 2009-08-26 21:07:42 +00:00 · 98f9472dd4
commit 98f9472dd4
parent ab7caff9bc
1 changed files with 1 additions and 2 deletions
--- a/collects/scheme/generator.ss
+++ b/collects/scheme/generator.ss
@ -25,8 +25,7 @@
                 ;; a unique tag to jump to
                 (define tag (make-continuation-prompt-tag))
                 ;; give the value to the sequence
-                 (define next (lambda (value)
-                                (shift-at tag f (values value f))))
+                 (define (next value) (shift-at tag f (values value f)))
                 (syntax-parameterize ([yield (make-rename-transformer #'next)])
                   (reset-at tag body0 bodies ... (values #f last))))]
              [seq