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.m | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

(limited to 'MLKForm.m')

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