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

Only warn when a planet package is already installed. (It is not an error.)

Browse Source 
svn: r18359
This commit is contained in:
Jay McCarthy 2010-02-26 20:21:56 +00:00
parent 4b67d441e7
commit b12c65cca9
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/planet/planet.ss
View File

@ -137,15 +137,18 @@ This command does not unpack or install the named .plt file."
(define (fail s . args)
(raise (make-exn:fail (apply format s args) (current-continuation-marks))))
(define (warn s . args)
(apply printf s args)
(newline))
(define (download/install owner name majstr minstr)
(let* ([maj (read-from-string majstr)]
[min (read-from-string minstr)]
[full-pkg-spec (get-package-spec owner name maj min)])
(when (get-package-from-cache full-pkg-spec)
(fail "No package installed (cache already contains a matching package)"))
(unless (download/install-pkg owner name maj min)
(fail "Could not find matching package"))))
(if (get-package-from-cache full-pkg-spec)
(warn "No package installed (cache already contains a matching package)")
(unless (download/install-pkg owner name maj min)
(fail "Could not find matching package")))))
(define (download/no-install owner pkg majstr minstr)
(let* ([maj (read-from-string majstr)]