From 9379eec0e9aafe5408e4d426a44118a3e4a4bd5d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 9 Mar 2006 22:07:17 +0000 Subject: [PATCH] fix bug with --force warning svn: r2403 --- collects/setup/unpack.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/setup/unpack.ss b/collects/setup/unpack.ss index 17ea1b8554..d21fb3dbf9 100644 --- a/collects/setup/unpack.ss +++ b/collects/setup/unpack.ss @@ -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 @@ ' 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))))