Remove obsolete function MLKDispatchRootFunction.

2 files changed, 0 insertions, 32 deletions

diff --git a/functions.h b/functions.h
index 4ea8261..f8ac973 100644
--- a/functions.h
+++ b/functions.h
@@ -83,7 +83,6 @@ void MLKSetForeignValueWithLispValue (void *destination, id value, MLKForeignTyp
 id MLKLispValueWithForeignValue (void *source, MLKForeignType type);
 
 id MLKInterpretedFunctionTrampoline (void *target, ...);
-id MLKDispatchRootFunction (MLKSymbol *name, ...);  
 
 #ifdef __cplusplus
 }
diff --git a/functions.m b/functions.m
index 2d8a08f..a884c40 100644
--- a/functions.m
+++ b/functions.m
@@ -411,34 +411,3 @@ id MLKInterpretedFunctionTrampoline (void *target, ...)
   else
     return nil;
 }
-
-id MLKDispatchRootFunction (MLKSymbol *name, ...)
-{
-  NSArray *values;
-  NSMutableArray *arguments;
-  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);
-
-  values = [MLKRoot dispatch:name withArguments:arguments];
-
-  if ([values count] > 0)
-    {
-      //NSLog (@"RETURN: %p", denullify ([values objectAtIndex:0]));
-      return denullify ([values objectAtIndex:0]);
-    }
-  else
-    return nil;
-}