From 8e95c4ec7b255f37505bdf9a30b0ebd2bc970477 Mon Sep 17 00:00:00 2001
From: John Clements <clements@racket-lang.org>
Date: Wed, 15 Nov 2006 17:55:55 +0000
Subject: [PATCH] back to old version of foreach

svn: r4861
---
 collects/tests/stepper/through-tests.ss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/collects/tests/stepper/through-tests.ss b/collects/tests/stepper/through-tests.ss
index 808592cd7d..f67e65a06f 100755
--- a/collects/tests/stepper/through-tests.ss
+++ b/collects/tests/stepper/through-tests.ss
@@ -217,6 +217,8 @@ exec mred -u "$0" "$@"
     (syntax-case stx ()
       [(_ name test)
        (syntax/loc stx (add-test `name (lambda () test)))]))
+  
+  ;; Eli can't help adding his own convenient but complex syntax here (JBC, 2006-11-14):
 
   (define-syntax (t stx)
     (define (split l)
@@ -821,7 +823,8 @@ exec mred -u "$0" "$@"
                                           (before-after ((define f_0 (lambda (x) (+ x 13))) (define a (hilite f_0)))
                                                         ((define f_0 (lambda (x) (+ x 13))) (define a (hilite (lambda (x) (+ x 13))))))
                                           (finished-stepping))))
-  ;;;;;;;;;;;;;
+  
+    ;;;;;;;;;;;;;
     ;;
     ;;  LET*
     ;;