resurrect mescc.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 10 Oct 2016 21:54:48 +0000 (23:54 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 10 Oct 2016 21:54:48 +0000 (23:54 +0200)
scm.mes
syntax.mes

diff --git a/scm.mes b/scm.mes
index cf76c6c59be2f5e7239df707e4fecf5de1ce2fe6..fa691882a78c4de4b8eaea09c94fa6bbe5a1c6a2 100755 (executable)
--- a/scm.mes
+++ b/scm.mes
 (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))
index 289c24f3621a6c66673611adc4400655ecc50c93..b9cbf4a40926ddda638488c9520438e02491c2f7 100644 (file)
@@ -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*)