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.

---
 functions.m | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'functions.m')

diff --git a/functions.m b/functions.m
index 8383e06..7caea41 100644
--- a/functions.m
+++ b/functions.m
@@ -184,18 +184,19 @@ static void init_symbols ()
 }
 
 
-void MLKSplitDeclarationsDocAndForms (id *decls, id *doc, id *forms, id body)
+void MLKSplitDeclarationsDocAndForms (id *decls, id *doc, id *forms, id body, BOOL docp)
 {
   id declarations;
 
   init_symbols ();
 
-  *doc = nil;
+  if (docp)
+    *doc = nil;
 
   declarations = nil;
   while (([[body car] isKindOfClass:[MLKCons class]]
           && [[body car] car] == DECLARE)
-         || [[body car] isKindOfClass:[NSString class]])
+         || (docp && [[body car] isKindOfClass:[NSString class]]))
     {
       id thing = [body car];
 
-- 
cgit v1.2.3