From 8b4abdccbf852321d4a36b8e1f3c14f51da8d874 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 5 Sep 2011 17:51:28 -0700 Subject: [PATCH] Use outf-error, previously called outf-console. --- src/gtk-screen/gtk-screen.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 -- 2.25.1