From 22dc528bcebd30bd8a274fca0d7d728e917c7ec2 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 17 Aug 2008 11:38:09 +0200
Subject: MLKForm class cluster: Add a couple of accessors to forms that are
 only processed indirectly.

---
 MLKForm.h |  8 ++++++++
 MLKForm.m | 26 ++++++++++++++++++++++++++
 2 files changed, 34 insertions(+)

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
 
 
-- 
cgit v1.2.3