~ chicken-core (chicken-5) 253ea893c47e4b7299703e3f47367b02a0608d7b
commit 253ea893c47e4b7299703e3f47367b02a0608d7b
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Tue Sep 16 08:43:23 2014 +1200
Commit: Mario Domenech Goulart <mario.goulart@gmail.com>
CommitDate: Mon Sep 15 19:05:56 2014 -0300
Remove use of srfi-13 string-trim-both from yes-or-no in utils.scm
Signed-off-by: Mario Domenech Goulart <mario.goulart@gmail.com>
diff --git a/utils.scm b/utils.scm
index d1022729..cedd952f 100644
--- a/utils.scm
+++ b/utils.scm
@@ -183,7 +183,7 @@ C_confirmation_dialog(char *msg, char *caption, int def, int abort) { return -1;
((0) "no")
((1) "yes")
(else "abort")))
- (string-trim-both (read-line))))
+ (read-line)))
(let loop ()
(unless gui
(printf "~%~A (yes/no~a) " str (if abort "/abort" ""))
Trap