fix up mzc-test support

svn: r4822
2006-11-10 20:54:05 +00:00 · 2006-11-10 20:54:05 +00:00 · 7fbbdd928d
commit 7fbbdd928d
parent 3f8d7fe93e
2 changed files with 3 additions and 1 deletions
--- 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"
--- 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)