>From 63b09fa91e1da02da9cde187b37cdd1977b6a48c Mon Sep 17 00:00:00 2001
From: Evan Hanson <address@hidden>
Date: Fri, 8 Nov 2013 06:24:02 +1300
Subject: [PATCH 1/2] 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.
---
 chicken-install.scm |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/chicken-install.scm b/chicken-install.scm
index 45d8c77..8df8865 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 ", "))
-- 
1.7.10.4