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

This commit is contained in:
Robby Findler 2010-11-23 12:34:26 -06:00
parent 510c3f8a33
commit fd53321823

View File

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