From 065ea00d5c861411b5aaa41f29bd69a9f30e3ef3 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <mulk@minimulk.mst-plus>
Date: Mon, 11 Aug 2008 01:00:09 +0200
Subject: Implement most of the MLKForm class cluster.

---
 MLKForm.h | 26 +++++++++++++++++++++-----
 1 file changed, 21 insertions(+), 5 deletions(-)

(limited to 'MLKForm.h')

diff --git a/MLKForm.h b/MLKForm.h
index b918703..4dd9580 100644
--- a/MLKForm.h
+++ b/MLKForm.h
@@ -124,6 +124,7 @@
 
 @interface MLKSimpleDefmacroForm : MLKDeclaringForm
 {
+  MLKSymbol *_lambdaListName;
   MLKSymbol *_name;
 }
 @end
@@ -219,14 +220,17 @@
 @end
 
 
+@interface MLKLocallyForm : MLKDeclaringForm
+@end
+
+
 @interface MLKSimpleLoopForm : MLKCompoundForm
 @end
 
 
-@interface MLKMultipleValueCallForm : MLKCompoundForm
+@interface MLKMultipleValueCallForm : MLKBodyForm
 {
   id _functionForm;
-  NSArray *_subforms;
 }
 @end
 
@@ -245,14 +249,14 @@
 
 @interface MLKQuoteForm : MLKCompoundForm
 {
-  MLKForm *_quotedForm;
+  id _quotedData;
 }
 @end
 
 
 @interface MLKSetQForm : MLKCompoundForm
 {
-  NSArray *_variableForms;
+  NSArray *_variables;
   NSArray *_valueForms;
 }
 @end
@@ -260,7 +264,7 @@
 
 @interface MLKFSetQForm : MLKCompoundForm
 {
-  NSArray *_functionNameForms;
+  NSArray *_functionNames;
   NSArray *_valueForms;
 }
 @end
@@ -295,3 +299,15 @@
   MLKForm *_protectedForm;
 }
 @end
+
+
+@interface MLKSimpleFunctionBindingForm : MLKDocstringForm
+{
+  id _name;
+  MLKSymbol *_lambdaListName;
+}
+
++(id) formWithObject:(id)object
+           inContext:(MLKLexicalContext *)context
+         forCompiler:(id)compiler;
+@end
-- 
cgit v1.2.3