fix bug with --force warning
svn: r2403
This commit is contained in:
parent
2543ebd5a8
commit
9379eec0e9
|
@ -196,7 +196,8 @@
|
|||
(with-handlers ([exn:fail:filesystem?
|
||||
(lambda (x)
|
||||
(if force?
|
||||
(print-status "warning: missing required collection ~s" coll-path)
|
||||
(print-status
|
||||
(format "warning: missing required collection ~s" coll-path))
|
||||
(error "cannot install; missing required collection" coll-path)))])
|
||||
(apply collection-path coll-path))
|
||||
(let ([inst-version
|
||||
|
@ -216,7 +217,7 @@
|
|||
'<unknown>
|
||||
inst-version))])
|
||||
(if force?
|
||||
(print-status "warning: ~a" msg)
|
||||
(print-status (format "warning: ~a" msg))
|
||||
(error (format "cannot install; ~a" msg)))))
|
||||
(loop (cdr v) (cdr iv)))))))
|
||||
l))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user