~ chicken-core (chicken-5) 80d18437c0e2e4932631bb9eb155aee43e8b6414

commit 80d18437c0e2e4932631bb9eb155aee43e8b6414
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Jun 23 09:42:24 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Jun 23 09:42:24 2011 +0200

    fixed chicken-install -list for local and svn transports

diff --git a/chicken-install.scm b/chicken-install.scm
index 5467336d..a19ce5ff 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -793,8 +793,9 @@ EOF
 			    (error
 			     "no default location defined - please use `-location' option")))
 			(if listeggs
-			    (list-available-extensions
-			     *default-transport* *default-location*)
+			    (display
+			     (list-available-extensions
+			      *default-transport* *default-location*))
 			    (install (apply-mappings (reverse eggs))))))))
               (else
                (let ((arg (car args)))
diff --git a/setup-download.scm b/setup-download.scm
index 8d1c5b9a..5c03d42d 100644
--- a/setup-download.scm
+++ b/setup-download.scm
@@ -364,9 +364,10 @@
 		     host port
 		     (string-append locn "?list=1")
 		     proxy-host proxy-port proxy-user-pass)))
-	(display (read-all in))
-	(close-input-port in)
-	(close-output-port out))))
+	(let ((ls (read-all in)))
+	  (close-input-port in)
+	  (close-output-port out)
+	  ls))))
 
   (define (throw-server-error msg args)
     (abort