~ chicken-core (chicken-5) ca08950d4d756d81a9a3226e128924727e42a5f9

commit ca08950d4d756d81a9a3226e128924727e42a5f9
Author:     felix <bunny351@gmail.com>
AuthorDate: Fri May 28 15:25:25 2010 +0200
Commit:     felix <bunny351@gmail.com>
CommitDate: Fri May 28 15:25:25 2010 +0200

    check C_gui_mode before opening dialog in yes-or-no?

diff --git a/utils.scm b/utils.scm
index 8bc9522b..418129ac 100644
--- a/utils.scm
+++ b/utils.scm
@@ -167,7 +167,7 @@ C_confirmation_dialog(char *msg, char *caption, int def) { return -1; }
   (let ((dialog (foreign-lambda int "C_confirmation_dialog" c-string c-string int)))
     (lambda (str #!key default title (abort reset))
       (define (get-input)
-	(if C_HAS_MESSAGE_BOX
+	(if (and C_HAS_MESSAGE_BOX (not (##sys#fudge 4))) ; C_gui_mode
 	    (let ((r (dialog 
 		      str
 		      (or title "CHICKEN Runtime")