From e14ddc672ab501eb9f8d1eaea5492621b6834cdb Mon Sep 17 00:00:00 2001 From: John Clements Date: Sun, 13 Apr 2008 05:07:49 +0000 Subject: [PATCH] started stepper annotation svn: r9281 --- collects/test-engine/scheme-tests.ss | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/test-engine/scheme-tests.ss b/collects/test-engine/scheme-tests.ss index 791b121dae..e261d48fd5 100644 --- a/collects/test-engine/scheme-tests.ss +++ b/collects/test-engine/scheme-tests.ss @@ -69,8 +69,12 @@ (syntax-position stx) (syntax-span stx))) test-info))))) - `stepper-hint - `comes-from-check-expect)))] + `stepper-skipto + (append skipto/third ;; let + skipto/third skipto/second ;; unless (it expands into a begin) + skipto/cdr skipto/third ;; application of insert-test + '(syntax-e cdr cdr syntax-e car) ;; lambda + ))))] [(_ test) (not (eq? (syntax-local-context) 'expression)) (raise-syntax-error 'check-expect CHECK-EXPECT-STR stx)]