...
svn: r13940
This commit is contained in:
parent
7a701cef2c
commit
bbe7282496
|
@ -75,9 +75,14 @@
|
|||
['stepper-use-val-as-final #t])
|
||||
(quasisyntax/loc stx
|
||||
(#,checker-proc-stx
|
||||
(car (list
|
||||
(lambda () #,test-expr)
|
||||
#,(syntax/loc stx (void))))
|
||||
#,(with-stepper-syntax-properties
|
||||
(['stepper-hide-reduction #t])
|
||||
#`(car
|
||||
#,(with-stepper-syntax-properties
|
||||
(['stepper-hide-reduction #t])
|
||||
#`(list
|
||||
(lambda () #,test-expr)
|
||||
#,(syntax/loc stx (void))))))
|
||||
#,@embedded-stxes
|
||||
#,src-info
|
||||
#,(with-stepper-syntax-properties
|
||||
|
|
Loading…
Reference in New Issue
Block a user