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

always adjust catalogs configuration elements

Browse Source 
Pathnames in the list need to be made absolute
"file://" URLs, even if the list has no #f element
to splice the default catalog.
This commit is contained in:
Matthew Flatt 2015-05-03 17:11:58 -07:00
parent 4c10a9efac
commit 78e473f017
1 changed files with 15 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/pkg/private/config.rkt
View File

@ -67,7 +67,6 @@
[else [else
(match k (match k
['catalogs ['catalogs
(if (member #f v)
;; Replace #f with default URLs, relative path ;; Replace #f with default URLs, relative path
;; with absolute path: ;; with absolute path:
(apply append (for/list ([i (in-list v)]) (apply append (for/list ([i (in-list v)])
@ -82,8 +81,7 @@
(url->string (url->string
(path->url (path->url
(simple-form-path (simple-form-path
(path->complete-path i (path->complete-path (pkg-dir #t)))))))]))) (path->complete-path i (path->complete-path (pkg-dir #t)))))))])))]
v)]
[_ v])])) [_ v])]))
(define (update-pkg-cfg! key val) (define (update-pkg-cfg! key val)