From bdfe4801295945b92f84b8c03cb2e0be485ae4f0 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Mon, 18 Aug 2008 01:19:06 +0200
Subject: Promote special operator APPLY to an intrinsic function.

---
 MLKForm.m | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'MLKForm.m')

diff --git a/MLKForm.m b/MLKForm.m
index d8f72bc..ee5139f 100644
--- a/MLKForm.m
+++ b/MLKForm.m
@@ -129,8 +129,7 @@
 {
   id car = [object car];
 
-  if (car == APPLY) return [MLKFunctionCallForm class];
-  else if (car == CATCH) return [MLKCatchForm class];
+  if (car == CATCH) return [MLKCatchForm class];
   else if (car == EVAL) return [MLKFunctionCallForm class];
   else if (car == EVAL_WHEN) return [MLKEvalWhenForm class];
   else if (car == _FOREIGN_LAMBDA) return [MLKForeignLambdaForm class];
-- 
cgit v1.2.3