From 09b354980b8cfc50d01741b5ec433a5bab14ef6e Mon Sep 17 00:00:00 2001
From: Matthias Benkard <mulk@minimulk.mst-plus>
Date: Fri, 8 Aug 2008 19:08:03 +0200
Subject: Fix %FOREIGN-LAMBDA.

---
 MLKInterpreter.m | 8 ++++----
 MLKPackage.m     | 1 +
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/MLKInterpreter.m b/MLKInterpreter.m
index b0c38ef..2a85502 100644
--- a/MLKInterpreter.m
+++ b/MLKInterpreter.m
@@ -510,10 +510,10 @@ static MLKSymbol *MULTIPLE_VALUE_CALL;
 #endif
 #endif
 
-              return LAUTORELEASE ([[MLKForeignProcedure alloc]
-                                     initWithCode:function
-                                     argumentTypes:[argtypes array]
-                                     returnType:returnType]);
+              RETURN_VALUE (LAUTORELEASE ([[MLKForeignProcedure alloc]
+                                            initWithCode:function
+                                            argumentTypes:[argtypes array]
+                                            returnType:returnType]));
             }
           else if (car == FUNCTION)
             {
diff --git a/MLKPackage.m b/MLKPackage.m
index 2d14ef5..256b6a9 100644
--- a/MLKPackage.m
+++ b/MLKPackage.m
@@ -97,6 +97,7 @@ static NSMutableDictionary *packages = nil;
   [sys export:[sys intern:@"%LOOP"]];
   [sys export:[sys intern:@"%FLET"]];
   [sys export:[sys intern:@"%MACROLET"]];
+  [sys export:[sys intern:@"%FOREIGN-LAMBDA"]];
 
   [sys export:[sys intern:@"*SYSTEM-INITIALISED-P*"]];
 
-- 
cgit v1.2.3