~ 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