From a4c9f5bd436dae1d99845f50da55bae733129f56 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Mon, 4 Aug 2008 16:20:18 +0200 Subject: Add fixnum-aware macros LRETAIN, LRELEASE, LDESTROY, LAUTORELEASE, LASSIGN_COPY, and LASSIGN. --- MLKCons.m | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'MLKCons.m') diff --git a/MLKCons.m b/MLKCons.m index 08c941a..7b1aaf9 100644 --- a/MLKCons.m +++ b/MLKCons.m @@ -28,14 +28,14 @@ @implementation MLKCons +(MLKCons*) cons:(id)car with:(id)cdr { - return AUTORELEASE ([[self alloc] initWithCar:car cdr:cdr]); + return LAUTORELEASE ([[self alloc] initWithCar:car cdr:cdr]); } -(MLKCons*) initWithCar:(id)car cdr:(id)cdr { self = [super init]; - ASSIGN (_car, car); - ASSIGN (_cdr, cdr); + LASSIGN (_car, car); + LASSIGN (_cdr, cdr); return self; } @@ -76,12 +76,12 @@ -(void) setCar:(id)value { - ASSIGN (_car, value); + LASSIGN (_car, value); } -(void) setCdr:(id)value { - ASSIGN (_cdr, value); + LASSIGN (_cdr, value); } -(NSArray *)array @@ -133,15 +133,15 @@ -(id) copyWithZone:(NSZone *)zone { MLKCons *copy = [MLKCons allocWithZone:zone]; - ASSIGN (copy->_car, _car); - ASSIGN (copy->_cdr, _cdr); + LASSIGN (copy->_car, _car); + LASSIGN (copy->_cdr, _cdr); return copy; } -(void) dealloc { - RELEASE (_car); - RELEASE (_cdr); + LRELEASE (_car); + LRELEASE (_cdr); [super dealloc]; } @end -- cgit v1.2.3