From 938a371de94ecbe2b4ccc72670dbfc8a68b50aa1 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 17 Feb 2008 14:17:53 +0100
Subject: Fix ENSURE-OBJECTIVE-C-CLASS-PAIR.

darcs-hash:cd2b28bb4e252e25afb6807e32d092fcbd9c0977
---
 Objective-C/libobjcl.h |  3 +++
 Objective-C/libobjcl.m | 11 +++++++++++
 2 files changed, 14 insertions(+)

(limited to 'Objective-C')

diff --git a/Objective-C/libobjcl.h b/Objective-C/libobjcl.h
index 758c831..89292f4 100644
--- a/Objective-C/libobjcl.h
+++ b/Objective-C/libobjcl.h
@@ -90,6 +90,9 @@ objcl_class_name (Class class);
 Class
 objcl_class_superclass (Class class);
 
+MetaClass
+objcl_class_metaclass (Class class);
+
 const char *
 objcl_selector_name (SEL selector);
 
diff --git a/Objective-C/libobjcl.m b/Objective-C/libobjcl.m
index dc44c2d..c933e49 100644
--- a/Objective-C/libobjcl.m
+++ b/Objective-C/libobjcl.m
@@ -284,6 +284,17 @@ objcl_class_superclass (Class class)
 }
 
 
+MetaClass
+objcl_class_metaclass (Class class)
+{
+#ifdef __NEXT_RUNTIME__
+  return objc_getMetaClass (class);
+#else
+  return class_get_meta_class (class);
+#endif
+}
+
+
 const char *
 objcl_selector_name (SEL selector)
 {
-- 
cgit v1.2.3