From 5a8e2c0dfd0c552f9eac03b6b9ce3c5f4c427dcd Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Tue, 4 May 2010 17:56:28 -0400
Subject: [PATCH] use []

original commit: 27a8ac62f6463998c60169e98909cddc42f95e2b
---
 collects/racunit/private/check.rkt | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/collects/racunit/private/check.rkt b/collects/racunit/private/check.rkt
index 72ccf8f..2e504a5 100644
--- a/collects/racunit/private/check.rkt
+++ b/collects/racunit/private/check.rkt
@@ -175,7 +175,7 @@
 
 (define-syntax define-binary-check
   (syntax-rules ()
-    ((_ (name expr1 expr2) expr ...)
+    [(_ (name expr1 expr2) expr ...)
      (define-check (name expr1 expr2)
        (with-check-info*
         (list (make-check-actual expr1)
@@ -184,8 +184,8 @@
           (let ((result (begin expr ...)))
             (if result
                 result
-                (fail-check)))))))
-    ((_ (name pred expr1 expr2))
+                (fail-check))))))]
+    [(_ (name pred expr1 expr2))
      (define-check (name expr1 expr2)
        (with-check-info*
         (list (make-check-actual expr1)
@@ -193,7 +193,7 @@
         (lambda ()
           (if (pred expr1 expr2)
               #t
-              (fail-check))))))))
+              (fail-check)))))]))
 
 (define-check (check-exn pred thunk)
   (let/ec succeed