Fixing tests
svn: r13350
This commit is contained in:
parent
dd67fa3cfb
commit
9b2eebc8f5
|
@ -19,7 +19,7 @@
|
||||||
(define new-namespace (make-base-empty-namespace))
|
(define new-namespace (make-base-empty-namespace))
|
||||||
(define additional-names (map get-name additional-specs))
|
(define additional-names (map get-name additional-specs))
|
||||||
(parameterize ([current-namespace new-namespace])
|
(parameterize ([current-namespace new-namespace])
|
||||||
(namespace-require 'scheme)
|
(namespace-require 'scheme/base)
|
||||||
(for-each (lambda (name)
|
(for-each (lambda (name)
|
||||||
(with-handlers ([exn? void])
|
(with-handlers ([exn? void])
|
||||||
(when name
|
(when name
|
||||||
|
|
Loading…
Reference in New Issue
Block a user