summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-08-17 13:08:45 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-08-17 15:20:14 +0200
commit99519955fca324cf190116f7fbae5eecbf493077 (patch)
tree9240295e9fc734f5450b2438d8610caea10631da
parent68ce22adad85ff1ea04455b466f656ea6b175a5f (diff)
MLKForm class cluster: Fix handling of fixnums.
-rw-r--r--MLKForm.m4
1 files changed, 2 insertions, 2 deletions
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];