compile/use info.rkt bytecode same as for setup implementation, instead of always disabling bytecode for info.rkt

This commit is contained in:
Matthew Flatt 2010-05-04 14:48:15 -06:00
parent d0cc31b35e
commit 282bc9d787

View File

@ -28,14 +28,19 @@
(define-namespace-anchor anchor)
;; read info files without compiling them
;; read info files using whatever namespace, .zo-use, and compilation
;; configuration was in place for loading setup, instead of whatever
;; is in place for the collections that setup is processing:
(define getinfo
(let ([ns (namespace-anchor->empty-namespace anchor)]
[compile (current-compile)])
[compile (current-compile)]
[loader (current-load/use-compiled)]
[paths (use-compiled-file-paths)])
(lambda (path)
(parameterize ([current-namespace ns]
[current-compile compile]
[use-compiled-file-paths '()])
[current-load/use-compiled loader]
[use-compiled-file-paths paths])
(get-info/full path)))))
(provide setup@)