From c870eadf03a4edd431674c928df55dd9266b9fff Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 14 Sep 2008 22:15:20 +0000
Subject: [PATCH] a nested (test ...) expression is implicitly in a 'do' block
 for convenicnce

svn: r11749
---
 collects/tests/lazy/testing.ss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/collects/tests/lazy/testing.ss b/collects/tests/lazy/testing.ss
index 4e93377ad2..1be7f1696b 100644
--- a/collects/tests/lazy/testing.ss
+++ b/collects/tests/lazy/testing.ss
@@ -81,7 +81,10 @@
                [(list* y '<= x r)      (cons (try t2 x y) r)]
                [(list* x '=error> y r) (cons (try te x y) r)]
                [(list* y '<error= x r) (cons (try te x y) r)]
-               [(list* x r)            (cons (try t1 x) r)]
+               [(list* x r) ; if x = (test ...), then it's implicitly in a `do'
+                (syntax-case x (test)
+                  [(test x0 x1 ...) (cons (tb x) r)]
+                  [_ (cons (try t1 x) r)])]
                [(list) '()])])
       (if (pair? t)
         (loop (cdr t) (cons (car t) r))