diff options
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) { |