repair to module-cache test
This commit is contained in:
parent
eb3ba2052e
commit
f825a8dace
|
@ -1434,7 +1434,7 @@ case of module-leve bindings; it doesn't cover local bindings.
|
|||
(delete-file zo-path))
|
||||
|
||||
;; Check that module-code caching works
|
||||
(let ([saved-namespace #f])
|
||||
(let ()
|
||||
(define dir (find-system-path 'temp-dir))
|
||||
(define tmx (build-path dir "tmx2.rkt"))
|
||||
(define e (compile '(module tmx2 racket/kernel
|
||||
|
@ -1474,7 +1474,7 @@ case of module-leve bindings; it doesn't cover local bindings.
|
|||
(delete-file zo-path)
|
||||
|
||||
;; Need to retain the namespace until here
|
||||
(set! saved-namespace first-namespace))
|
||||
(ephemeron-value (make-ephemeron first-namespace 7) first-namespace))
|
||||
|
||||
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Check that `provide` doesn't run enclosed expanders until within a
|
||||
|
|
Loading…
Reference in New Issue
Block a user