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

use []

Browse Source 
original commit: 27a8ac62f6463998c60169e98909cddc42f95e2b
This commit is contained in:
Sam Tobin-Hochstadt 2010-05-04 17:56:28 -04:00
parent 6a18313c22
commit 5a8e2c0dfd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/racunit/private/check.rkt
View File

@ -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