Centralise declaration and documentation string handling.

1 files changed, 17 insertions, 0 deletions

diff --git a/MLKRoot.m b/MLKRoot.m
index 8add77e..f726841 100644
--- a/MLKRoot.m
+++ b/MLKRoot.m
@@ -624,4 +624,21 @@ as provided by method %@ of object %@",
       RETURN_VALUE (MLKLispValueWithForeignValue (returnValue, returnType));
     }
 }
+
+
++(NSArray *) declarations_and_doc_and_forms:(NSArray *)args
+{
+  id decls, doc, forms;
+  id bodyAndDecls = denullify ([args objectAtIndex:0]);
+
+  MLKSplitDeclarationsDocAndForms (&decls, &doc, &forms, bodyAndDecls);
+
+  RETURN_VALUE ([MLKCons
+                  cons:decls
+                  with:[MLKCons
+                         cons:doc
+                         with:[MLKCons
+                                cons:forms
+                                with:nil]]]);
+}
 @end