summaryrefslogtreecommitdiff
path: root/MLKInterpreter.m
diff options
context:
space:
mode:
Diffstat (limited to 'MLKInterpreter.m')
-rw-r--r--MLKInterpreter.m5
1 files changed, 5 insertions, 0 deletions
diff --git a/MLKInterpreter.m b/MLKInterpreter.m
index a1b86fd..778985f 100644
--- a/MLKInterpreter.m
+++ b/MLKInterpreter.m
@@ -101,6 +101,8 @@ static MLKSymbol *_LAMBDA;
{
MLKDynamicContext *dynamicContext = [MLKDynamicContext currentContext];
+ //NSLog (@"eval: %@", [program descriptionForLisp]);
+
if (!program || [program isKindOfClass:[MLKSymbol class]])
{
//NSLog (@"Processing symbol.");
@@ -559,11 +561,13 @@ static MLKSymbol *_LAMBDA;
while (YES)
{
id result;
+ //NSLog (@"; LOAD: Reding a form.");
id code = [MLKReader readFromStream:stream
eofError:NO
eofValue:eofValue
recursive:NO
preserveWhitespace:NO];
+ //NSLog (@"; LOAD: Reading finished.");
NSString *formdesc;
//NSLog (@"%@", code);
@@ -597,6 +601,7 @@ static MLKSymbol *_LAMBDA;
}
}
+ //NSLog (@"; LOAD: END");
return YES;
}
@end