2 files changed, 13 insertions, 0 deletions
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;