From 7fbbdd928d3c23a5317aa52b1edd69f204300ccb Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 10 Nov 2006 20:54:05 +0000 Subject: [PATCH] fix up mzc-test support svn: r4822 --- collects/tests/mzscheme/makeflats.ss | 1 + collects/tests/mzscheme/runflats.ss | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/makeflats.ss b/collects/tests/mzscheme/makeflats.ss index 9fc575b29e..6c6b1b35b0 100644 --- a/collects/tests/mzscheme/makeflats.ss +++ b/collects/tests/mzscheme/makeflats.ss @@ -25,6 +25,7 @@ "sync.ss" "deep.ss" "contmark.ss" + "prompt.ss" "will.ss" "namespac.ss" "port.ss" diff --git a/collects/tests/mzscheme/runflats.ss b/collects/tests/mzscheme/runflats.ss index beec4a871a..4f6345e82f 100644 --- a/collects/tests/mzscheme/runflats.ss +++ b/collects/tests/mzscheme/runflats.ss @@ -1,7 +1,8 @@ (for-each (lambda (f) (when (regexp-match "^flat-[0-9]+[.]ss$" (path->string f)) - (parameterize ([current-namespace (make-namespace)]) + (parameterize ([current-namespace (make-namespace)] + [exit-handler void]) (eval `(begin (require-for-syntax mzscheme)