repair to module-cache test

This commit is contained in:
Matthew Flatt 2019-01-08 15:54:04 -07:00
parent eb3ba2052e
commit f825a8dace

View File

@ -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