summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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];