~ chicken-core (chicken-5) f3dc35978412af59e4e96fc4a7180dba25692c54


commit f3dc35978412af59e4e96fc4a7180dba25692c54
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Jan 11 08:10:19 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Jan 11 08:10:19 2010 +0100

    bugfix in chicken-install

diff --git a/chicken-install.scm b/chicken-install.scm
index 411f5aa4..30fb40ce 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -444,8 +444,8 @@ EOF
                             (string=? arg "--help"))
                         (usage 0))
                        ((string=? arg "-repository")
-                        ((printf "~A" (repository-path))
-                        (exit 0)))
+                        (printf "~a" (repository-path))
+                        (exit 0))
                        ((string=? arg "-force")
                         (set! *force* #t)
                         (loop (cdr args) eggs))
Trap