use for rather than let loop

2012-06-24 09:26:38 -07:00 · 2012-06-24 09:26:38 -07:00 · 46899084f1
commit 46899084f1
parent 2d1cf47636
1 changed files with 4 additions and 5 deletions
--- a/collects/stepper/private/mred-extensions.rkt
+++ b/collects/stepper/private/mred-extensions.rkt
@ -245,11 +245,10 @@
      (select-all)
      (clear)
      (reset-style)
-      (let loop ([remaining stripped-exps] [first #t])
-        (unless (null? remaining)
-          (unless first (insert #\newline))
-          (format-sexp (car remaining))
-          (loop (cdr remaining) #f)))
+      (for ([exp stripped-exps] [i (in-naturals)])
+        (unless (= i 0)
+          (insert #\newline))
+        (format-sexp exp))
      (end-edit-sequence)
      (lock #t))