diff options
| author | Matthias Benkard <mulk@minimulk.mst-plus> | 2008-08-08 19:08:03 +0200 |
|---|---|---|
| committer | Matthias Benkard <mulk@minimulk.mst-plus> | 2008-08-08 19:08:03 +0200 |
| commit | 09b354980b8cfc50d01741b5ec433a5bab14ef6e (patch) | |
| tree | ad417a4aaca430ee37a0f571a21134b70a841b4f | |
| parent | af415e7e63dc62416cd73a4f146e26e8f3e55c6f (diff) | |
Fix %FOREIGN-LAMBDA.
| -rw-r--r-- | MLKInterpreter.m | 8 | ||||
| -rw-r--r-- | 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*"]]; |