From c506880a1441179d062b287946bf8addab7f168f Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 10 Oct 2016 23:54:48 +0200
Subject: [PATCH] resurrect mescc.

---
 scm.mes    | 10 +++++-----
 syntax.mes | 10 +++++-----
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/scm.mes b/scm.mes
index cf76c6c5..fa691882 100755
--- a/scm.mes
+++ b/scm.mes
@@ -160,11 +160,11 @@
 (define else #t)
 
 (define (error who . rest)
-  (display "error:")
-  (display who)
-  (display ":")
-  (display rest)
-  (display newline))
+  (display "error:" (current-error-port))
+  (display who (current-error-port))
+  (display ":" (current-error-port))
+  (display rest (current-error-port))
+  (newline (current-error-port)))
 
 (define (syntax-error message . rest)
   (display "syntax-error:" (current-error-port))
diff --git a/syntax.mes b/syntax.mes
index 289c24f3..b9cbf4a4 100644
--- a/syntax.mes
+++ b/syntax.mes
@@ -1,11 +1,11 @@
 ;; -*-scheme-*-
 
 (define (syntax-error message thing)
-  (display "syntax-error:")
-  (display message)
-  (display ":")
-  (display thing)
-  (newline))
+  (display "syntax-error:" (current-error-port))
+  (display message (current-error-port))
+  (display ":" (current-error-port))
+  (display thing (current-error-port))
+  (newline (current-error-port)))
 
 (define (silent-syntax-error message thing)
   *unspecified*)