diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-16 18:42:30 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-16 22:01:39 +0200 |
| commit | 79abb06fbce7ee8f72556ededeee3eb88baf2fc8 (patch) | |
| tree | 20bd46e1d999b0e505423b41786d6e1f8df114b2 | |
| parent | 69d20805fb9c361f2011f24e4c47288d678a995a (diff) | |
MLKCompiledClosure: Add accessors.
| -rw-r--r-- | MLKCompiledClosure.h | 3 | ||||
| -rw-r--r-- | MLKCompiledClosure.m | 10 |
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; |