From 98a2664219df9f0bc7f8fdfb14dcc2e8972782ba Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 19 Feb 2008 15:30:53 +0100
Subject: Avoid sending messages to potentially unregistered classes.

darcs-hash:e57bfdafd5e8690f8e875bf6a5a0a10050b77303
---
 Objective-C/libobjcl.m | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'Objective-C')

diff --git a/Objective-C/libobjcl.m b/Objective-C/libobjcl.m
index 646dccd..8489891 100644
--- a/Objective-C/libobjcl.m
+++ b/Objective-C/libobjcl.m
@@ -382,7 +382,7 @@ objcl_object_is_class (id obj)
 {
   TRACE (@"is-class %p", obj);
 #ifdef __NEXT_RUNTIME__
-  return [obj class] == obj;
+  return class_isMetaClass (object_getClass (obj));
 #else
   /* return CLS_ISCLASS (obj); */
   return object_is_class (obj);
@@ -845,7 +845,6 @@ void
 objcl_finalise_class (Class class)
 {
 #ifdef __NEXT_RUNTIME__
-  /* FIXME: Should we do this if class is a metaclass? */
   if (!objcl_object_is_meta_class (class))
     objc_registerClassPair (class);
 #else
-- 
cgit v1.2.3