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
This commit is contained in:
Eli Barzilay 2008-08-13 03:04:32 +00:00
parent 9bbcfd1324
commit 0dc40662fc

View File

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