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

1 files changed, 26 insertions, 0 deletions

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