~ chicken-core (chicken-5) 1a2e3bcc2bdd102368e127950c5831c37a760321

commit 1a2e3bcc2bdd102368e127950c5831c37a760321
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Sun Apr 23 16:50:29 2017 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sun Apr 23 16:51:56 2017 +1200

    Re-prompt on invalid uninstallation confirmation response
    
    As with 59b5a657, but for chicken-uninstall.

diff --git a/chicken-uninstall.scm b/chicken-uninstall.scm
index 6023ed13..b9525abd 100644
--- a/chicken-uninstall.scm
+++ b/chicken-uninstall.scm
@@ -76,13 +76,13 @@
   (exit code))
 
 (define (ask eggs)
-  (print* (string-intersperse
-           (append '("About to delete the following extensions:\n\n")
-                   (map (cut string-append "  " <> "\n") eggs)
-                   '("\nDo you want to proceed ? (no/yes) "))
-           ""))
-  (flush-output)
+  (print (string-intersperse
+          (append (list "About to delete the following extensions:\n\n")
+                  (map (cut string-append "  " <> "\n") eggs))
+          ""))
   (let loop ()
+    (display "Do you want to proceed? (yes/no) ")
+    (flush-output)
     (let ((r (trim (read-line))))
       (cond ((string=? r "yes"))
             ((string=? r "no") (fini 1))