From 3f63e832969932dfd43f6382b24a8a73377d33b9 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sat, 23 Aug 2008 18:53:16 +0200
Subject: MLKDispatchRootFunction: Add disabled trace messages.

---
 functions.m | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'functions.m')

diff --git a/functions.m b/functions.m
index 20cde07..2d8a08f 100644
--- a/functions.m
+++ b/functions.m
@@ -419,11 +419,15 @@ id MLKDispatchRootFunction (MLKSymbol *name, ...)
   id arg;
   va_list ap;
 
+  //NSLog (@"Calling intrinsic.");
+  //NSLog (@"Intrinsic function: %@", MLKPrintToString (name));
+
   arguments = [NSMutableArray array];
 
   va_start (ap, name);
   while ((arg = va_arg (ap, id)) != MLKEndOfArgumentsMarker)
     {
+      //NSLog (@"Argument: %p", arg);
       [arguments addObject:nullify(arg)];
     }
   va_end (ap);
@@ -431,7 +435,10 @@ id MLKDispatchRootFunction (MLKSymbol *name, ...)
   values = [MLKRoot dispatch:name withArguments:arguments];
 
   if ([values count] > 0)
-    return denullify ([values objectAtIndex:0]);
+    {
+      //NSLog (@"RETURN: %p", denullify ([values objectAtIndex:0]));
+      return denullify ([values objectAtIndex:0]);
+    }
   else
     return nil;
 }
-- 
cgit v1.2.3