summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--functions.h1
-rw-r--r--functions.m31
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;
-}