don't make an alias just for `raise'

original commit: 9ec2e41db06bdc0713b4c5b5b10ac5c1edd73f91

collects/racunit/private/test-case.rkt

@@ -57,13 +57,6 @@
          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 ()
     [(_ expr ...)
@@ -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 ...))))]
     [_

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)]{