From 1fa1c0d5ba09fe07ecd190c9c5fa1bf6fa3a5afb Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Mon, 25 Aug 2008 11:04:19 +0200 Subject: Remove obsolete function MLKDispatchRootFunction. --- functions.h | 1 - functions.m | 31 ------------------------------- 2 files changed, 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; -} -- cgit v1.2.3