fix bug with --force warning

svn: r2403
This commit is contained in:
Matthew Flatt 2006-03-09 22:07:17 +00:00
parent 2543ebd5a8
commit 9379eec0e9

View File

@ -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))))