diff options
| author | Matthias Benkard <mulk@minimulk.mst-plus> | 2008-08-11 11:48:37 +0200 |
|---|---|---|
| committer | Matthias Benkard <mulk@minimulk.mst-plus> | 2008-08-11 11:48:37 +0200 |
| commit | ab43577a31b56bb451d1abc3eb9da2e8afc12509 (patch) | |
| tree | 8c2061ed9230db454fd13d24986c0a384b4ea3f7 /functions.m | |
| parent | 065ea00d5c861411b5aaa41f29bd69a9f30e3ef3 (diff) | |
MLKForm class cluster: Implement declaration and docstring handling.
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]; |