~ chicken-core (chicken-5) 0380ef0f2665426a8450352df9465a93bacf5d31

commit 0380ef0f2665426a8450352df9465a93bacf5d31
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Oct 11 09:09:57 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Oct 11 09:09:57 2010 -0400

    chicken-install: -k does disable deleting so's in local build dir

diff --git a/chicken-install.scm b/chicken-install.scm
index 79473b24..7b4d8230 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -264,7 +264,7 @@
 	 trunk: *trunk*
 	 proxy-host: *proxy-host*
 	 proxy-port: *proxy-port*
-	 clean: (not *retrieve-only*))
+	 clean: (and (not *retrieve-only*) (not *keep*)))
       [(exn net)
        (print "TCP connect timeout")
        (values #f "") ]
diff --git a/setup-download.scm b/setup-download.scm
index 74eacae6..33a41899 100644
--- a/setup-download.scm
+++ b/setup-download.scm
@@ -122,7 +122,7 @@
 		 (let ((sos (filter (cut string-suffix? ".so" <>) (directory src))))
 		   (for-each
 		    (lambda (f)
-		      (d " deleting leftover ~a from local directory~%" f)
+		      (d " deleting stale file `~a' from local build directory~%" f)
 		      (delete-file* f))
 		    sos)))
 	       (values src ver))))))