MLKForm class cluster: Implement declaration and docstring handling.

1 files changed, 16 insertions, 1 deletions

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