fix expansion of check-expect to quote the syntax source
svn: r7797
This commit is contained in:
parent
ff186ec025
commit
e517dcdc2c
|
@ -61,7 +61,7 @@
|
|||
(define #,(gensym 'test)
|
||||
#,(stepper-syntax-property
|
||||
#`(check-values-expected
|
||||
(lambda () test) actual (make-src #,@(list (syntax-source stx)
|
||||
(lambda () test) actual (make-src #,@(list #`(quote #,(syntax-source stx))
|
||||
(syntax-line stx)
|
||||
(syntax-column stx)
|
||||
(syntax-position stx)
|
||||
|
|
Loading…
Reference in New Issue
Block a user