diff options
-rw-r--r-- | MLKForm.m | 1 | ||||
-rw-r--r-- | MLKLLVMCompiler.mm | 5 |
2 files changed, 6 insertions, 0 deletions
@@ -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]; } |