diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-07 15:45:58 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-07 15:45:58 +0200 |
commit | 256438ccf9eaf2f45a50c98349d2ac02f52755af (patch) | |
tree | a1e11b17566695c735ac7d150a6f5a2343ce4b59 /MLKInterpreter.m | |
parent | 1b556d9e057c6e3bed4893036d12eed1f3bc238d (diff) |
Prettify LOAD output.
Diffstat (limited to 'MLKInterpreter.m')
-rw-r--r-- | MLKInterpreter.m | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/MLKInterpreter.m b/MLKInterpreter.m index 159de2a..a2aa81e 100644 --- a/MLKInterpreter.m +++ b/MLKInterpreter.m @@ -1392,6 +1392,9 @@ static MLKSymbol *MULTIPLE_VALUE_CALL; +(BOOL) load:(MLKStream *)stream verbose:(BOOL)verbose print:(BOOL)print { id eofValue = [[NSObject alloc] init]; + int level = MLKIntWithInteger ([[MLKDynamicContext currentContext] + valueForSymbol:[sys intern:@"*LOAD-LEVEL*"]]); + int i; while (YES) { @@ -1427,7 +1430,10 @@ static MLKSymbol *MULTIPLE_VALUE_CALL; formdesc = MLKPrintToString(code); //fprintf (stderr, "; COMPILE-MINIMALLY: %s\n", [formdesc UTF8String]); - fprintf (stderr, "; LOAD: %s\n", [formdesc UTF8String]); + fprintf (stderr, "; "); + for (i = 0; i < level; i++) + fprintf (stderr, "| "); + fprintf (stderr, "LOAD: %s\n", [formdesc UTF8String]); expansion = denullify([[MLKInterpreter eval:code inLexicalContext:[MLKLexicalContext @@ -1462,7 +1468,6 @@ static MLKSymbol *MULTIPLE_VALUE_CALL; } } - //NSLog (@"; LOAD: END"); return YES; } @end |