svn: r13940
This commit is contained in:
John Clements 2009-03-04 06:47:17 +00:00
parent 7a701cef2c
commit bbe7282496

View File

@ -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