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

raco pkg install: fix problem with version-triggered updates

Browse Source
This commit is contained in:
Matthew Flatt 2013-08-18 13:29:11 -06:00
parent 884c0bef02
commit e4a4a52ea9
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
racket/collects/pkg/lib.rkt
View File

@ -1169,21 +1169,21 @@
(loop)]))) (loop)])))
(define (install-packages (define (install-packages
#:old-infos [old-infos empty] #:old-infos old-infos
#:old-descs [old-descs empty] #:old-descs old-descs
#:pre-succeed [pre-succeed void] #:pre-succeed pre-succeed
#:dep-behavior [dep-behavior #f] #:dep-behavior dep-behavior
#:update-deps? [update-deps? #f] #:update-deps? update-deps?
#:update-cache [update-cache #f] #:update-cache update-cache
#:updating? [updating? #f] #:updating? updating?
#:ignore-checksums? [ignore-checksums? #f] #:ignore-checksums? ignore-checksums?
#:skip-installed? [skip-installed? #f] #:skip-installed? skip-installed?
#:force? [force? #f] #:force? force?
#:quiet? [quiet? #f] #:quiet? quiet?
#:install-conversation [install-conversation #f] #:install-conversation install-conversation
#:update-conversation [update-conversation #f] #:update-conversation update-conversation
#:strip [strip-mode #f] #:strip strip-mode
#:link-dirs? [link-dirs? #f] #:link-dirs? link-dirs?
descs) descs)
(define download-printf (if quiet? void printf/flush)) (define download-printf (if quiet? void printf/flush))
(define check-sums? (not ignore-checksums?)) (define check-sums? (not ignore-checksums?))
@ -1640,7 +1640,7 @@
#:pre-succeed [pre-succeed void] #:pre-succeed [pre-succeed void]
#:dep-behavior [dep-behavior #f] #:dep-behavior [dep-behavior #f]
#:update-deps? [update-deps? #f] #:update-deps? [update-deps? #f]
#:update-cache [update-cache #f] #:update-cache [update-cache (make-hash)]
#:updating? [updating? #f] #:updating? [updating? #f]
#:quiet? [quiet? #f] #:quiet? [quiet? #f]
#:install-conversation [install-conversation #f] #:install-conversation [install-conversation #f]