From 001cb4ca8dc4ea1b98a95e110907fde06e7f4039 Mon Sep 17 00:00:00 2001 From: John Clements Date: Tue, 27 May 2008 20:20:45 +0000 Subject: [PATCH] added test-engine flag svn: r9984 --- collects/stepper/private/model.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/stepper/private/model.ss b/collects/stepper/private/model.ss index 99da61d503..144814e275 100644 --- a/collects/stepper/private/model.ss +++ b/collects/stepper/private/model.ss @@ -49,6 +49,7 @@ "model-settings.ss" "macro-unwind.ss" "lifting.ss" + (prefix test-engine: test-engine/scheme-tests) #;(file "/Users/clements/clements/scheme-scraps/eli-debug.ss") ;; for breakpoint display ;; (commented out to allow nightly testing) @@ -306,7 +307,8 @@ (define (step-through-expression expanded expand-next-expression) (let* ([annotated (a:annotate expanded break show-lambdas-as-lambdas? language-level)]) - (eval-syntax annotated) + (parameterize ([test-engine:test-silence #t]) + (eval-syntax annotated)) (expand-next-expression))) (define (err-display-handler message exn)