From ab43577a31b56bb451d1abc3eb9da2e8afc12509 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <mulk@minimulk.mst-plus>
Date: Mon, 11 Aug 2008 11:48:37 +0200
Subject: MLKForm class cluster: Implement declaration and docstring handling.

---
 MLKRoot.m | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

(limited to 'MLKRoot.m')

diff --git a/MLKRoot.m b/MLKRoot.m
index f295c77..940181c 100644
--- a/MLKRoot.m
+++ b/MLKRoot.m
@@ -677,7 +677,7 @@ as provided by method %@ of object %@",
   id decls, doc, forms;
   id bodyAndDecls = denullify ([args objectAtIndex:0]);
 
-  MLKSplitDeclarationsDocAndForms (&decls, &doc, &forms, bodyAndDecls);
+  MLKSplitDeclarationsDocAndForms (&decls, &doc, &forms, bodyAndDecls, YES);
 
   RETURN_VALUE ([MLKCons
                   cons:decls
@@ -687,4 +687,19 @@ as provided by method %@ of object %@",
                                 cons:forms
                                 with:nil]]]);
 }
+
+
++(NSArray *) declarations_and_forms:(NSArray *)args
+{
+  id decls, doc, forms;
+  id bodyAndDecls = denullify ([args objectAtIndex:0]);
+  
+  MLKSplitDeclarationsDocAndForms (&decls, &doc, &forms, bodyAndDecls, NO);
+  
+  RETURN_VALUE ([MLKCons
+                  cons:decls
+                  with:[MLKCons
+                         cons:forms
+                         with:nil]]);
+}
 @end
-- 
cgit v1.2.3