From dc5f09ca9fe80896ec7fd8677a3e517ce9213285 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 4 Jul 2011 04:39:13 +0000
Subject: 	* interp/vmlisp.lisp (PRINTEXP): Remove. 	*
 interp/br-data.boot: Use writeString, writeChar, and writeLine. 	*
 interp/c-util.boot: Likewise. 	* interp/diagnostics.boot: Likewise. 	*
 interp/fortcall.boot: Likewise. 	* interp/i-output.boot: Likewise. 
 * interp/i-syscmd.boot: Likewise. 	* interp/i-util.boot: Likewise. 
 * interp/lisplib.boot: Likewise. 	* interp/msgdb.boot: Likewise. 	*
 interp/newfort.boot: Likewise. 	* interp/record.boot: Likewise. 
 * interp/g-opt.boot ($VMsideEffectFreeOperators): Include 	%writeString,
 %writeNewline, %writeLine. 	* interp/lisp-backend.boot: Translate them.

---
 src/interp/diagnostics.boot | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/interp/diagnostics.boot')

diff --git a/src/interp/diagnostics.boot b/src/interp/diagnostics.boot
index d91e3679..fd5c5e09 100644
--- a/src/interp/diagnostics.boot
+++ b/src/interp/diagnostics.boot
@@ -1,6 +1,6 @@
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
--- Copyright (C) 2007-2010, Gabriel Dos Reis
+-- Copyright (C) 2007-2011, Gabriel Dos Reis
 -- All rights reserved.
 --
 -- Redistribution and use in source and binary forms, with or without
@@ -81,19 +81,19 @@ MESSAGEPRINT x ==
 
 MESSAGEPRINT_-1 x ==
   cons? x =>
-    PRINC '"("
+    writeString '"("
     MESSAGEPRINT_-1 first x
     MESSAGEPRINT_-2 rest x
-    PRINC '")"
+    writeString '")"
   x = "%l" or x is '"%l" => TERPRI()
   PRINC x
 
 MESSAGEPRINT_-2 x ==
   atom x =>
     not null x =>
-      PRINC '" . "
+      writeString '" . "
       MESSAGEPRINT_-1 x
-  PRINC '" "
+  writeString '" "
   MESSAGEPRINT_-1 first x
   MESSAGEPRINT_-2 rest x
 
-- 
cgit v1.2.3