suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

don't make an alias just for `raise'

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-05-04 16:52:47 -04:00
parent 4984345657
commit 9ec2e41db0
2 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/racunit/private/test-case.rkt
View File

@ -57,13 +57,6 @@
v v
(raise-type-error 'current-test-case-around "procedure" 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) (define-syntax (test-begin stx)
(syntax-case stx () (syntax-case stx ()
[(_ expr ...) [(_ expr ...)
@ -71,7 +64,7 @@
((current-test-case-around) ((current-test-case-around)
(lambda () (lambda ()
(parameterize (parameterize
([current-check-handler test-case-check-handler] ([current-check-handler raise]
[current-check-around check-around]) [current-check-around check-around])
expr ...))))] expr ...))))]
[_ [_

4
collects/racunit/scribblings/check.scrbl
View File

@ -332,9 +332,7 @@ of these parameters.
@defparam[current-check-handler handler (-> any/c any/c)]{ @defparam[current-check-handler handler (-> any/c any/c)]{
Parameter containing the function that handles exceptions Parameter containing the function that handles exceptions
raised by check failures. The default behaviour is to print raised by check failures. The default value is @racket[raise]. }
an error message including the exception message and stack
trace. }
@defparam[current-check-around check (-> thunk any/c)]{ @defparam[current-check-around check (-> thunk any/c)]{