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

changed top-level checks so they return (void), so nothing is printed at the top-level of a module

Browse Source 
svn: r16339
This commit is contained in:
Robby Findler 2009-10-16 14:33:25 +00:00
parent 5aea2eeca3
commit 2043cb19ff
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/schemeunit/check.ss
View File

@ -63,10 +63,16 @@
([exn? (current-check-handler)]) ([exn? (current-check-handler)])
(thunk)))) (thunk))))
;; top-level-check-around : ( -> a) -> a
(define top-level-check-around
(lambda (thunk)
(check-around thunk)
(void)))
;; parameter current-check-around : (( -> a) -> a) ;; parameter current-check-around : (( -> a) -> a)
(define current-check-around (define current-check-around
(make-parameter (make-parameter
check-around top-level-check-around
(lambda (v) (lambda (v)
(if (procedure? v) (if (procedure? v)
v v

5
collects/schemeunit/scribblings/check.scrbl
View File

@ -339,4 +339,7 @@ trace. }
Parameter containing the function that handles the execution Parameter containing the function that handles the execution
of checks. The default value wraps the evaluation of of checks. The default value wraps the evaluation of
@scheme[thunk] in a @scheme[with-handlers] call that calls @scheme[thunk] in a @scheme[with-handlers] call that calls
@scheme[current-check-handler] if an exception is raised. } @scheme[current-check-handler] if an exception is raised and then
(when an exception is not raised) discards the result, returning
@scheme[(void)].
}