MLKForm class cluster: Add a couple of accessors to forms that are only processed indirectly.

2 files changed, 34 insertions, 0 deletions

diff --git a/MLKForm.h b/MLKForm.h
index 29483ef..ac08241 100644
--- a/MLKForm.h
+++ b/MLKForm.h
@@ -91,6 +91,7 @@
 {
   id _body;
   NSArray *_bodyForms;
+  id _bodyContext;
 }
 
 -(void) splitDeclarationsAndBody:(id)object;
@@ -319,6 +320,10 @@
 }
 
 +(Class) dispatchClassForObject:(id)object;
+
+-(id) name;
+-(id) lambdaListName;
+-(id) bodyForms;
 @end
 
 
@@ -329,6 +334,9 @@
 }
 
 +(Class) dispatchClassForObject:(id)object;
+
+-(id) name;
+-(id) valueForm;
 @end
 
 
diff --git a/MLKForm.m b/MLKForm.m
index a5bebe5..b7be502 100644
--- a/MLKForm.m
+++ b/MLKForm.m
@@ -246,6 +246,7 @@
       rest = [rest cdr];
     }
 
+  LASSIGN (_bodyContext, context);
   LASSIGN (_bodyForms, bodyForms);
 }
 
@@ -883,6 +884,21 @@
           inContext:newContext];
   return self;
 }
+
+-(id) name
+{
+  return _name;
+}
+
+-(id) lambdaListName
+{
+  return _lambdaListName;
+}
+
+-(id) bodyForms
+{
+  return _bodyForms;
+}
 @end
 
 
@@ -914,6 +930,16 @@
 {
   return [[super subforms] arrayByAddingObject:_valueForm];
 }
+
+-(id) name
+{
+  return _name;
+}
+
+-(id) valueForm
+{
+  return _valueForm;
+}
 @end