From 0dc40662fc0a6d8f28402273cd98a43240f0be37 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 13 Aug 2008 03:04:32 +0000 Subject: [PATCH] unixstyle-install needs to grab the base namespace before it moves the collections, so it won't look for it again when it's not there. svn: r11213 --- collects/setup/unixstyle-install.ss | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/setup/unixstyle-install.ss b/collects/setup/unixstyle-install.ss index f59ef90c1e..6d3f9b9c76 100644 --- a/collects/setup/unixstyle-install.ss +++ b/collects/setup/unixstyle-install.ss @@ -260,6 +260,10 @@ (printf "exec rm \"$0\"\n"))) (run "chmod" "+x" uninstaller)) +;; we need a namespace to compile the new config, grab it now, before the +;; collection tree moves (otherwise it won't find the `scheme' collection) +(define base-ns (make-base-namespace)) + (define write-config (case-lambda [() (write-config #t (dir: 'collects))] @@ -277,7 +281,7 @@ [src-time (ftime src)] [zo-time (ftime zo)]) (printf "Rewriting configuration file at: ~a...\n" src) - (parameterize ([current-namespace (make-base-namespace)] ; to compile + (parameterize ([current-namespace base-ns] ; to compile (see above) [current-library-collection-paths ; for configtab.ss (list collectsdir)]) (with-output-to-file src #:exists 'truncate/replace