From 282bc9d7878f9bb5b982b86292497880afb6c6c1 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 4 May 2010 14:48:15 -0600 Subject: [PATCH] compile/use info.rkt bytecode same as for setup implementation, instead of always disabling bytecode for info.rkt --- collects/setup/setup-unit.rkt | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/collects/setup/setup-unit.rkt b/collects/setup/setup-unit.rkt index 6665467643..0134f3d986 100644 --- a/collects/setup/setup-unit.rkt +++ b/collects/setup/setup-unit.rkt @@ -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@)