~ chicken-core (chicken-5) c155b5499353193571c8367bdf30763cef9abffd

commit c155b5499353193571c8367bdf30763cef9abffd
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Sep 30 08:39:37 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Sep 30 08:39:37 2010 -0400

    bugfixes in stuff made in last commit

diff --git a/setup-download.scm b/setup-download.scm
index 3ee1aa0b..0cfeac69 100644
--- a/setup-download.scm
+++ b/setup-download.scm
@@ -37,7 +37,7 @@
 			list-extension-versions
 			temporary-directory)
 
-  (import scheme chicken)
+  (import scheme chicken foreign)
   (import extras irregex posix utils srfi-1 data-structures tcp srfi-13 files setup-api)
 
   (define-constant +default-tcp-connect-timeout+ 10000) ; 10 seconds
@@ -114,8 +114,8 @@
 			      (sprintf "cp -r ~a/* ~a" src dest))))
 		 (d "  ~a~%" cmd)
 		 (if (zero? (system cmd))
-		     (values #f "")
-		     (values dest ver))))
+		     (values dest ver)
+		     (values #f ""))))
 	      (else (values src ver))))))
 
   (define (gather-egg-information dir)