From 1e2602cbd46ab6587aa80f82661e6145e018d05f Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Mon, 18 Aug 2008 14:05:58 +0200
Subject: Add a couple of disabled debugging messages.

---
 MLKForm.m          | 1 +
 MLKLLVMCompiler.mm | 5 +++++
 2 files changed, 6 insertions(+)

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