rackunit: bring back source locations for check-equal? used in 'ho' position
This commit is contained in:
parent
510c3f8a33
commit
fd53321823
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user