diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-28 16:57:09 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-28 16:57:09 +0200 |
commit | 5f0f8e7c29b6812c1f7a2696d345a5dc7b1a217a (patch) | |
tree | 335ba3e743b0dfbf013af45e56e5842f3d508779 /MLKInterpreter.m | |
parent | 9f06467f57576cd557ee172f10f5e12bba7f1f9e (diff) |
LOAD: Print messages on *STANDARD-OUTPUT* instead of stderr.
Diffstat (limited to 'MLKInterpreter.m')
-rw-r--r-- | MLKInterpreter.m | 8 |
1 files changed, 5 insertions, 3 deletions
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) { |