diff options
| -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*"]]; |