From 8f594f969b0c495b098c833dba26d5cad93f7cd8 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <mulk@minimulk.mst-plus>
Date: Wed, 1 Oct 2008 16:44:43 +0200
Subject: MLKSplitDeclarationsDocAndForms: Don't crash if the body starts with
 a fixnum.

---
 functions.m | 7 ++++---
 1 file 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];
 
-- 
cgit v1.2.3