summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--MLKForm.m1
-rw-r--r--MLKLLVMCompiler.mm5
2 files changed, 6 insertions, 0 deletions
diff --git a/MLKForm.m b/MLKForm.m
index ee5139f..c8a5416 100644
--- a/MLKForm.m
+++ b/MLKForm.m
@@ -209,6 +209,7 @@
forCompiler:compiler];
id <MLKFuncallable> macrofun = [context macroForSymbol:_head];
+ //NSLog (@"Expanding: %@", MLKPrintToString (_form));
id expansion = denullify ([[macrofun
applyToArray:
[NSArray arrayWithObjects:
diff --git a/MLKLLVMCompiler.mm b/MLKLLVMCompiler.mm
index c5e463c..cf7cf29 100644
--- a/MLKLLVMCompiler.mm
+++ b/MLKLLVMCompiler.mm
@@ -379,8 +379,12 @@ static Constant
{
Value *value;
+ //NSLog (@"Symbol: %@", MLKPrintToString (_form));
+ //[_compiler insertTrace:[NSString stringWithFormat:@"Symbol: %@", _form]];
+
if (![_context variableIsLexical:_form])
{
+ //[_compiler insertTrace:@"Dynamic."];
Value *mlkdynamiccontext = [_compiler insertClassLookup:@"MLKCons"];
Value *dynctx = [_compiler insertMethodCall:@"currentContext"
onObject:mlkdynamiccontext];
@@ -398,6 +402,7 @@ static Constant
}
else if ([_context variableHeapAllocationForSymbol:_form])
{
+ //[_compiler insertTrace:@"Global."];
Value *binding = builder.CreateLoad (builder.Insert ([_context bindingCellValueForSymbol:_form]));
value = [_compiler insertMethodCall:@"value" onObject:binding];
}