From 3fd292f83ef33f8052feb22eb133d37913d33c66 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <mulk@Minimulk.local>
Date: Sun, 24 Aug 2008 17:03:33 +0200
Subject: Refactor the interpreter so as to build upon the MLKForm class
 cluster.

The transition is not finished yet, so lots of things are broken right now.
---
 MLKForeignProcedure.m | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'MLKForeignProcedure.m')

diff --git a/MLKForeignProcedure.m b/MLKForeignProcedure.m
index 459ce97..b8dab83 100644
--- a/MLKForeignProcedure.m
+++ b/MLKForeignProcedure.m
@@ -36,7 +36,7 @@
 @implementation MLKForeignProcedure
 -(id) initWithCode:(void *)code
      argumentTypes:(NSArray *)argTypes
-        returnType:(id)returnType
+        returnType:(MLKForeignType)returnType
 {
   int i;
   NSEnumerator *e;
@@ -45,7 +45,7 @@
   self = [super init];
 
   _code = code;
-  _returnType = MLKForeignTypeWithTypeDesignator (returnType);
+  _returnType = returnType;
 
   _argumentTypes = malloc (sizeof (MLKForeignType) * [argTypes count]);
 
-- 
cgit v1.2.3