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

Fixing error introduce by Robby in fd53321

Browse Source 
original commit: 267d2293c0d8e4b9037c6116ef59331e511b2e72
This commit is contained in:
Jay McCarthy 2010-11-25 11:11:27 -05:00
parent 7604a3aa38
commit 7bffe12841
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/rackunit/private/check.rkt
View File

@ -171,9 +171,15 @@
(name
(identifier? #'name)
(syntax/loc stx
(λ (formal ...) (check-secret-name formal ...
#:location (quote loc)
#:expression (quote (name actual ...)))))))))
(case-lambda
[(formal ...)
(check-secret-name formal ...
#:location (quote loc)
#:expression (quote (name actual ...)))]
[(formal ... msg)
(check-secret-name formal ... msg
#:location (quote loc)
#:expression (quote (name actual ...)))]))))))
))))))
(define-syntax define-simple-check