diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-10-01 19:40:42 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-10-01 19:40:42 +0200 |
| commit | afaaec406bc86bf52ef976634b458dbc7e01fdc9 (patch) | |
| tree | ce715c4b8fb6cbe95c4e2e80fc85af6706acfb44 /functions.m | |
| parent | fd7702e9b009d2984328b2519db946f82ad834e9 (diff) | |
| parent | a0dae1a2756c0f9a84c3a258f3a4a05e63afc1c6 (diff) | |
Merge mulk_benkard@ssh.phx.nearlyfreespeech.net:/home/htdocs/code/mulklisp
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 a884c40..3c0c2f9 100644 --- a/functions.m +++ b/functions.m @@ -196,9 +196,10 @@ void MLKSplitDeclarationsDocAndForms (id *decls, id *doc, id *forms, id body, BO *doc = nil; declarations = nil; - while (([[body car] isKindOfClass:[MLKCons class]] - && [[body car] car] == DECLARE) - || (docp && [[body car] isKindOfClass:[NSString class]])) + while (MLKInstanceP ([body car]) + && (([[body car] isKindOfClass:[MLKCons class]] + && [[body car] car] == DECLARE) + || (docp && [[body car] isKindOfClass:[NSString class]]))) { id thing = [body car]; |