From 79abb06fbce7ee8f72556ededeee3eb88baf2fc8 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sat, 16 Aug 2008 18:42:30 +0200
Subject: MLKCompiledClosure: Add accessors.

---
 MLKCompiledClosure.h |  3 +++
 MLKCompiledClosure.m | 10 ++++++++++
 2 files changed, 13 insertions(+)

diff --git a/MLKCompiledClosure.h b/MLKCompiledClosure.h
index 7df6c68..772f29c 100644
--- a/MLKCompiledClosure.h
+++ b/MLKCompiledClosure.h
@@ -46,5 +46,8 @@
 -(NSString *) description;
 -(NSString *) descriptionForLisp;
 
+-(id (*)()) code;
+-(void *) closureData;
+
 -(void) dealloc;
 @end
diff --git a/MLKCompiledClosure.m b/MLKCompiledClosure.m
index c9f1e97..73f308b 100644
--- a/MLKCompiledClosure.m
+++ b/MLKCompiledClosure.m
@@ -108,6 +108,16 @@
   return [NSString stringWithFormat:@"<Compiled closure @%p>", self];
 }
 
+-(id (*)()) code
+{
+  return _code;
+}
+
+-(void *) closureData
+{
+  return _data;
+}
+
 -(void) dealloc
 {
   int i;
-- 
cgit v1.2.3