From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Tue, 6 Sep 2011 00:51:28 +0000 (-0700)
Subject: Use outf-error, previously called outf-console.
X-Git-Tag: mit-scheme-pucked-9.2.12~366^2~117
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8b4abdccbf852321d4a36b8e1f3c14f51da8d874;p=mit-scheme.git

Use outf-error, previously called outf-console.
---

diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm
index 16da12be0..80c2d26a7 100644
--- a/src/gtk-screen/gtk-screen.scm
+++ b/src/gtk-screen/gtk-screen.scm
@@ -239,7 +239,7 @@ USA.
 (define (create-blinker-thread screen)
 
   (define (%trace3 . args)
-    (if %trace-blinker? (apply outf-console args)))
+    (if %trace-blinker? (apply outf-error args)))
 
   (create-thread
    #f
@@ -1689,7 +1689,7 @@ USA.
 	    new)))
 
     (define (%trace3 . args)
-      (if %trace-redraw? (apply outf-console (simplify args))))
+      (if %trace-redraw? (apply outf-error (simplify args))))
 
     (define (simplify args)
       (map (lambda (obj)
@@ -2161,12 +2161,12 @@ USA.
 
 (define-syntax %trace
   (syntax-rules ()
-    ((_ . ARGS) (if %trace? ((lambda () (outf-console . ARGS)))))))
+    ((_ . ARGS) (if %trace? ((lambda () (outf-error . ARGS)))))))
 
 (define %trace2? #f)
 
 (define-syntax %trace2
   (syntax-rules ()
-    ((_ . ARGS) (if %trace2? ((lambda () (outf-console . ARGS)))))))
+    ((_ . ARGS) (if %trace2? ((lambda () (outf-error . ARGS)))))))
 
 (initialize-package!)
\ No newline at end of file