From 5f0f8e7c29b6812c1f7a2696d345a5dc7b1a217a Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 28 Aug 2008 16:57:09 +0200
Subject: LOAD: Print messages on *STANDARD-OUTPUT* instead of stderr.

---
 MLKInterpreter.m | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'MLKInterpreter.m')

diff --git a/MLKInterpreter.m b/MLKInterpreter.m
index a808909..81415d1 100644
--- a/MLKInterpreter.m
+++ b/MLKInterpreter.m
@@ -140,10 +140,12 @@ PRIMARY (NSArray *array)
         formdesc = MLKPrintToString(code);
 
       //fprintf (stderr, "; COMPILE-MINIMALLY: %s\n", [formdesc UTF8String]);
-      fprintf (stderr, "; ");
+      MLKCharacterStream *ostream = [[MLKDynamicContext currentContext]
+                                      valueForSymbol:[cl intern:@"*STANDARD-OUTPUT*"]];
+      [ostream writeString:@"; "];
       for (i = 0; i < level; i++)
-        fprintf (stderr, "| ");
-      fprintf (stderr, "LOAD: %s\n", [formdesc UTF8String]);
+        [ostream writeString:@"| "];
+      [ostream writeString:[NSString stringWithFormat:@"LOAD: %@\n", formdesc]];
 
       if (MLKLoadCompilesP)
         {
-- 
cgit v1.2.3