From 9ec2e41db06bdc0713b4c5b5b10ac5c1edd73f91 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Tue, 4 May 2010 16:52:47 -0400
Subject: [PATCH] don't make an alias just for `raise'

---
 collects/racunit/private/test-case.rkt   | 9 +--------
 collects/racunit/scribblings/check.scrbl | 4 +---
 2 files changed, 2 insertions(+), 11 deletions(-)

diff --git a/collects/racunit/private/test-case.rkt b/collects/racunit/private/test-case.rkt
index 3d4618856c..ff1f578f22 100644
--- a/collects/racunit/private/test-case.rkt
+++ b/collects/racunit/private/test-case.rkt
@@ -56,13 +56,6 @@
      (if (procedure? v)
          v
          (raise-type-error 'current-test-case-around "procedure" v)))))      
-
-;; test-case-check-handler : (-> exn void)
-;;
-;; Raise any exceptions that occur in checks, halting
-;; evaluation of following expression within the scope of
-;; the test case
-(define test-case-check-handler raise)
   
 (define-syntax (test-begin stx)
   (syntax-case stx ()
@@ -71,7 +64,7 @@
        ((current-test-case-around)
         (lambda ()
           (parameterize
-              ([current-check-handler test-case-check-handler]
+              ([current-check-handler raise]
                [current-check-around  check-around])
             expr ...))))]
     [_
diff --git a/collects/racunit/scribblings/check.scrbl b/collects/racunit/scribblings/check.scrbl
index 91c7e0e196..5c50ce3f90 100644
--- a/collects/racunit/scribblings/check.scrbl
+++ b/collects/racunit/scribblings/check.scrbl
@@ -332,9 +332,7 @@ of these parameters.
 @defparam[current-check-handler handler (-> any/c any/c)]{
 
 Parameter containing the function that handles exceptions
-raised by check failures.  The default behaviour is to print
-an error message including the exception message and stack
-trace.  }
+raised by check failures.  The default value is @racket[raise].  }
 
 @defparam[current-check-around check (-> thunk any/c)]{