From bbe72824963681f0bb1b2c5333196b8ce0ec0387 Mon Sep 17 00:00:00 2001 From: John Clements Date: Wed, 4 Mar 2009 06:47:17 +0000 Subject: [PATCH] ... svn: r13940 --- collects/test-engine/scheme-tests.ss | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/collects/test-engine/scheme-tests.ss b/collects/test-engine/scheme-tests.ss index 8b579db023..67e0090568 100644 --- a/collects/test-engine/scheme-tests.ss +++ b/collects/test-engine/scheme-tests.ss @@ -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