diff options
Diffstat (limited to 'functions.m')
| -rw-r--r-- | functions.m | 7 |
1 files changed, 4 insertions, 3 deletions
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]; |