From 99519955fca324cf190116f7fbae5eecbf493077 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 17 Aug 2008 13:08:45 +0200
Subject: MLKForm class cluster: Fix handling of fixnums.

---
 MLKForm.m | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'MLKForm.m')

diff --git a/MLKForm.m b/MLKForm.m
index b7be502..acf204e 100644
--- a/MLKForm.m
+++ b/MLKForm.m
@@ -56,7 +56,7 @@
 
 +(Class) dispatchClassForObject:(id)object
 {
-  if ([object isKindOfClass:[MLKCons class]])
+  if (MLKInstanceP (object) && [object isKindOfClass:[MLKCons class]])
     return [MLKCompoundForm class];
   else
     return [MLKAtomicForm class];
@@ -89,7 +89,7 @@
 @implementation MLKAtomicForm
 +(Class) dispatchClassForObject:(id)object
 {
-  if ([object isKindOfClass:[MLKSymbol class]])
+  if (MLKInstanceP (object) && [object isKindOfClass:[MLKSymbol class]])
     return [MLKSymbolForm class];
   else
     return [MLKSelfEvaluatingForm class];
-- 
cgit v1.2.3