From 3329eeafa1f08c5b9d410e57f761011d2e1ac1d6 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 7 Aug 2008 14:21:27 +0200
Subject: Centralise declaration and documentation string handling.

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

(limited to 'MLKRoot.m')

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