summaryrefslogtreecommitdiff
path: root/functions.m
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-08-23 18:53:16 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-08-23 18:53:16 +0200
commit3f63e832969932dfd43f6382b24a8a73377d33b9 (patch)
tree5125b06b08fcf0311e60dc6cfd15afa4b3bc817f /functions.m
parente843a33a110295ec1b7498e37d08e1416070500a (diff)
MLKDispatchRootFunction: Add disabled trace messages.
Diffstat (limited to 'functions.m')
-rw-r--r--functions.m9
1 files changed, 8 insertions, 1 deletions
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;
}