rackunit: bring back source locations for check-equal? used in 'ho' position

original commit: fd53321823d54733d6d5e4ff93893c406000dfe0
This commit is contained in:
Robby Findler 2010-11-23 12:34:26 -06:00
parent 166c31f324
commit 7604a3aa38

View File

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