summaryrefslogtreecommitdiff
path: root/MLKForm.m
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-08-18 01:19:06 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-08-18 01:22:08 +0200
commitbdfe4801295945b92f84b8c03cb2e0be485ae4f0 (patch)
tree4e3b51b3ad5269404a168fe10b9e3ffddcacb3d5 /MLKForm.m
parentec1b0c41160ce153f3b2cd39ffeb2f4522fd1c38 (diff)
Promote special operator APPLY to an intrinsic function.
Diffstat (limited to 'MLKForm.m')
-rw-r--r--MLKForm.m3
1 files changed, 1 insertions, 2 deletions
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];