From 98f9472dd4f9a30da29c8c2bd4bf9105a2933b2d Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Wed, 26 Aug 2009 21:07:42 +0000
Subject: [PATCH] reformat

svn: r15806
---
 collects/scheme/generator.ss | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/collects/scheme/generator.ss b/collects/scheme/generator.ss
index 2d736fd7f7..b19bcdd0c8 100644
--- 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