From 256438ccf9eaf2f45a50c98349d2ac02f52755af Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 7 Aug 2008 15:45:58 +0200
Subject: Prettify LOAD output.

---
 MLKInterpreter.m | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'MLKInterpreter.m')

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
-- 
cgit v1.2.3