~ chicken-core (chicken-5) f91293746b9f0ba0c51961e2ac5b6c2ec8013bc2

commit f91293746b9f0ba0c51961e2ac5b6c2ec8013bc2
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Fri Nov 8 06:24:02 2013 +1300
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Fri Nov 8 15:47:57 2013 +0100

    Properly set the default value ("no") for chicken-install's egg upgrade prompt
    
    yes-or-no?'s default value is a keyword argument, but wasn't being
    passed as one.
    
    Signed-off-by: Peter Bex <peter.bex@xs4all.nl>

diff --git a/chicken-install.scm b/chicken-install.scm
index 45d8c770..8df88658 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -478,7 +478,7 @@
                                    (or *force*
                                        (yes-or-no?
                                         (make-replace-extension-question e+d+v upgrade)
-                                        "no"
+                                        default: "no"
 					abort: (abort-setup) ) ) )
                           (let ([ueggs (unzip1 upgrade)])
                             (print " upgrade: " (string-intersperse ueggs ", "))