~ chicken-core (chicken-5) ece85f720064a5ca523c072279f017308e3b8efe

commit ece85f720064a5ca523c072279f017308e3b8efe
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Dec 11 09:16:32 2009 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Dec 11 09:16:32 2009 +0100

    tools.scm: no color-output on mingw

diff --git a/scripts/tools.scm b/scripts/tools.scm
index 3d07dc29..c809067f 100644
--- a/scripts/tools.scm
+++ b/scripts/tools.scm
@@ -19,6 +19,7 @@
 
 (define *tty* 
   (and (##sys#tty-port? (current-output-port)) 
+       (not (feature? #:mingw32))
        (not (equal? (getenv "EMACS") "t"))
        (not (equal? (getenv "TERM") "dumb"))))