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

fix up mzc-test support

Browse Source 
svn: r4822
This commit is contained in:
Matthew Flatt 2006-11-10 20:54:05 +00:00
parent 3f8d7fe93e
commit 7fbbdd928d
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/tests/mzscheme/makeflats.ss
View File

@ -25,6 +25,7 @@
"sync.ss" "sync.ss"
"deep.ss" "deep.ss"
"contmark.ss" "contmark.ss"
"prompt.ss"
"will.ss" "will.ss"
"namespac.ss" "namespac.ss"
"port.ss" "port.ss"

3
collects/tests/mzscheme/runflats.ss
View File

@ -1,7 +1,8 @@
(for-each (lambda (f) (for-each (lambda (f)
(when (regexp-match "^flat-[0-9]+[.]ss$" (path->string 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 (eval
`(begin `(begin
(require-for-syntax mzscheme) (require-for-syntax mzscheme)