suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added test-engine flag

Browse Source 
svn: r9984
This commit is contained in:
John Clements 2008-05-27 20:20:45 +00:00
parent 69f4097020
commit 001cb4ca8d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/stepper/private/model.ss
View File

@ -49,6 +49,7 @@
"model-settings.ss" "model-settings.ss"
"macro-unwind.ss" "macro-unwind.ss"
"lifting.ss" "lifting.ss"
(prefix test-engine: test-engine/scheme-tests)
#;(file "/Users/clements/clements/scheme-scraps/eli-debug.ss") #;(file "/Users/clements/clements/scheme-scraps/eli-debug.ss")
;; for breakpoint display ;; for breakpoint display
;; (commented out to allow nightly testing) ;; (commented out to allow nightly testing)
@ -306,7 +307,8 @@
(define (step-through-expression expanded expand-next-expression) (define (step-through-expression expanded expand-next-expression)
(let* ([annotated (a:annotate expanded break show-lambdas-as-lambdas? (let* ([annotated (a:annotate expanded break show-lambdas-as-lambdas?
language-level)]) language-level)])
(eval-syntax annotated) (parameterize ([test-engine:test-silence #t])
(eval-syntax annotated))
(expand-next-expression))) (expand-next-expression)))
(define (err-display-handler message exn) (define (err-display-handler message exn)