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

preserve the error-print-source parameter when installing planet packages

Browse Source
This commit is contained in:
Robby Findler 2012-10-10 19:46:52 -05:00
parent f756f694e7
commit cb763c81b9
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -343,6 +343,7 @@ See the scribble documentation on the planet/resolver module.
[current-module-declare-name #f] [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)]
[error-print-source-location (call-with-parameterization orig-paramz error-print-source-location)]
[powerful-security-guard (call-with-parameterization orig-paramz current-security-guard)]) [powerful-security-guard (call-with-parameterization orig-paramz current-security-guard)])
(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?)])
(when load? (add-pkg-to-diamond-registry! pkg stx)) (when load? (add-pkg-to-diamond-registry! pkg stx))