From b3be10fa461a52b3ca774ad2a25162d0fc830cda Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 10 Aug 2008 14:33:00 +0200
Subject: MLKForm class cluster: Add instance variables.

---
 MLKForm.m | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

(limited to 'MLKForm.m')

diff --git a/MLKForm.m b/MLKForm.m
index 4d575e3..9e72681 100644
--- a/MLKForm.m
+++ b/MLKForm.m
@@ -209,7 +209,23 @@
 @end
 
 
+@implementation MLKBodyForm
+@end
+
+
+@implementation MLKDeclaringForm
+@end
+
+
+@implementation MLKDocstringForm
+@end
+
+
 @implementation MLKFunctionCallForm
+// -(id <MLKFuncallable>) functionInfo
+// {
+//   return [_context functionInfoForSymbol:_head];
+// }
 @end
 
 
@@ -230,6 +246,23 @@
 
 
 @implementation MLKFunctionForm
++(Class) dispatchClassForObject:(id)object
+{
+  id funname = [[object cdr] car];
+  if ([funname isKindOfClass:[MLKCons class]]
+      && [funname car] == LAMBDA)
+    return [MLKLambdaFunctionForm class];
+  else
+    return [MLKSimpleFunctionForm class];
+}
+@end
+
+
+@implementation MLKLambdaFunctionForm
+@end
+
+
+@implementation MLKSimpleFunctionForm
 @end
 
 
-- 
cgit v1.2.3