suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix bug in the way planet was setting up the state for the installation process

Browse Source
This commit is contained in:
Robby Findler 2011-08-20 19:15:02 -05:00
parent a0baee8ab9
commit 963dc808fa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/planet/private/resolver.rkt
View File

@ -339,6 +339,7 @@ See the scribble documentation on the planet/resolver module.
;; install various parameters that can affect the compilation of a planet package back to their original state ;; install various parameters that can affect the compilation of a planet package back to their original state
(parameterize ([current-compile (call-with-parameterization orig-paramz current-compile)] (parameterize ([current-compile (call-with-parameterization orig-paramz current-compile)]
[current-eval (call-with-parameterization orig-paramz current-eval)] [current-eval (call-with-parameterization orig-paramz current-eval)]
[current-module-declare-name #f]
[use-compiled-file-paths (call-with-parameterization orig-paramz use-compiled-file-paths)] [use-compiled-file-paths (call-with-parameterization orig-paramz use-compiled-file-paths)]
[current-library-collection-paths (call-with-parameterization orig-paramz current-library-collection-paths)]) [current-library-collection-paths (call-with-parameterization orig-paramz current-library-collection-paths)])
(let-values ([(path pkg) (get-planet-module-path/pkg/internal spec rmp stx load?)]) (let-values ([(path pkg) (get-planet-module-path/pkg/internal spec rmp stx load?)])
@ -628,8 +629,7 @@ See the scribble documentation on the planet/resolver module.
(current-time)) (current-time))
(parameterize ([msfh (manager-skip-file-handler)] (parameterize ([msfh (manager-skip-file-handler)]
[use-compiled-file-paths (list (string->path "compiled"))]) [use-compiled-file-paths (list (string->path "compiled"))])
(ipp #f the-dir (list owner pkg-name (ipp #f the-dir (list owner pkg-name extra-path maj min))
extra-path maj min))
(unless was-nested? (unless was-nested?
(planet-terse-log 'docs-build pkg-string) (planet-terse-log 'docs-build pkg-string)
(printf "\n============= Rebuilding documentation index =============\n") (printf "\n============= Rebuilding documentation index =============\n")