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

...

Browse Source 
original commit: 04df303b89629ecf76a11c0500c49c495cfc13cb
This commit is contained in:
Robby Findler 2001-03-13 20:15:32 +00:00
parent 659386037e
commit 5e1776c9d1
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/tests/framework/load.ss
View File

@ -7,15 +7,19 @@
(test
(string->symbol file)
void?
`(parameterize ([current-namespace (make-namespace 'mred)])
(eval '(require (lib ,file "framework")))
(with-handlers ([(lambda (x) #t)
(lambda (x)
(if (exn? x)
(exn-message x)
(format "~s" x)))])
(eval ',exp)
(void)))))
`(let ([orig-namespace (current-namespace)])
(parameterize ([current-namespace (make-namespace)])
(namespace-attach-module
orig-namespace
((current-module-name-resolver) '(lib "mred.ss" "mred")))
(eval '(require (lib ,file "framework")))
(with-handlers ([(lambda (x) #t)
(lambda (x)
(if (exn? x)
(exn-message x)
(format "~s" x)))])
(eval ',exp)
(void))))))
(load-framework-automatically #f)