minor fixes

svn: r16473

collects/scheme/private/for.ss

@@ -475,29 +475,20 @@
                void))))
 
   (define in-port
-    (let ([mk (lambda (p r)
+    (case-lambda
+      [()  (in-port (current-input-port) read)]
+      [(r) (in-port (current-input-port) r)]
+      [(r p)
+       (unless (and (procedure? r) (procedure-arity-includes? r 1))
+         (raise-type-error 'in-port "procedure (arity 1)" r))
+       (unless (input-port? p) (raise-type-error 'in-port "input-port" p))
        (make-do-sequence
         (lambda ()
           (values r values p void
                   (lambda (x) (not (eof-object? x)))
-                           void))))])
+                  void)))]))
-      (case-lambda
-        [() (mk (current-input-port) read)]
-        [(r) (mk (current-input-port) r)]
-        [(r p)
-         (unless (and (procedure? r) (procedure-arity-includes? r 1))
-           (raise-type-error 'in->port "procedure (arity 1)" r))
-         (unless (input-port? p) (raise-type-error 'in-port "input-port" p))
-         (mk p r)])))
 
   (define in-lines
-    (let ([mk (lambda (p m)
-                (make-do-sequence
-                 (lambda ()
-                   (values (lambda (p) (read-line p m))
-                           values p void
-                           (lambda (x) (not (eof-object? x)))
-                           void))))])
     (case-lambda
       [()  (in-lines (current-input-port) 'any)]
       [(p) (in-lines p 'any)]
@@ -508,7 +499,12 @@
           'in-lines
           "'linefeed, 'return, 'return-linefeed, 'any, or 'any-one"
           mode))
-         (mk p mode)])))
+       (make-do-sequence
+        (lambda ()
+          (values (lambda (p) (read-line p m))
+                  values p void
+                  (lambda (x) (not (eof-object? x)))
+                  void)))]))
 
   (define (in-hash ht)
     (unless (hash? ht) (raise-type-error 'in-hash "hash" ht))