parent
644a4c550f
commit
6d59b5e60d
|
@ -70,7 +70,7 @@
|
||||||
|
|
||||||
(define (ensure-string name src-stx)
|
(define (ensure-string name src-stx)
|
||||||
(contract string? name
|
(contract string? name
|
||||||
(syntax-source name)
|
(syntax-source src-stx)
|
||||||
(syntax-source-module #'test-case #t)))
|
(syntax-source-module #'test-case #t)))
|
||||||
|
|
||||||
(define-syntax before
|
(define-syntax before
|
||||||
|
|
Loading…
Reference in New Issue
Block a user