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

adjust link-all to avoid conflicts

Browse Source
This commit is contained in:
Matthew Flatt 2014-07-29 06:46:29 +01:00
parent 04c36e2c09
commit 41e7d346d1
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
racket/src/link-all.rkt
View File

@ -22,6 +22,7 @@
(define config-file-path (build-path config-dir-path "config.rktd"))
(define devel-pkgs-rel-dir (build-path "devel-pkgs"))
(define devel-pkgs-dir (build-path "racket" "share" devel-pkgs-rel-dir))
(define cache-file-path (build-path "racket" "share" "info-cache.rktd"))
(define only-platform? #f)
(define save? #f)
@ -216,6 +217,14 @@
(printf "Erasing previous development package configuration\n")
(delete-directory/files devel-pkgs-dir))
(define orig-info-cache
(and (file-exists? cache-file-path)
(let ()
(printf "Saving previous info cache\n")
(begin0
(call-with-input-file* cache-file-path read)
(delete-file cache-file-path)))))
(void
(parameterize ([current-pkg-scope (path->complete-path devel-pkgs-dir)])
(with-pkg-lock
@ -237,6 +246,12 @@
#f
auto?))))))
(when orig-info-cache
(printf "Restoring previous info cache\n")
(call-with-output-file* cache-file-path (lambda (o)
(write orig-info-cache o)
(newline o))))
(for ([p (in-list missing-desc)])
(printf "Missing package description for ~a\n" p))
(for ([p (in-list missing-authors)])