diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-04 15:32:37 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-04 15:32:37 +0200 |
commit | 820c78beaccf784f710bdd91298401a745d93f2e (patch) | |
tree | 30a9e7a7cc6cf7ccd4aa953edc72b2e2b825b362 /MLKRoot.m | |
parent | eaf8e27a9860e404390da055510d1f8e4de33f1f (diff) |
Add MLKPrintToString along with a couple of fixnum handling functions.
Diffstat (limited to 'MLKRoot.m')
-rw-r--r-- | MLKRoot.m | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -345,7 +345,7 @@ static id truify (BOOL value) { [NSException raise:@"MLKNoSuchPackageError" format:@"The package %@ does not exist", - [name descriptionForLisp]]; + MLKPrintToString(name)]; return nil; } } @@ -370,7 +370,7 @@ static id truify (BOOL value) if ([x isKindOfClass:[NSString class]]) { prefix = x; - suffix = [[gensymCounter value] descriptionForLisp]; + suffix = MLKPrintToString([gensymCounter value]); [gensymCounter setValue:[[gensymCounter value] add:[MLKInteger integerWithInt:1]]]; @@ -379,7 +379,7 @@ static id truify (BOOL value) { // x must be an integer. prefix = @"G"; - suffix = [x descriptionForLisp]; + suffix = MLKPrintToString(x); } else [NSException raise:@"MLKTypeError" @@ -388,7 +388,7 @@ static id truify (BOOL value) else { prefix = @"G"; - suffix = [[gensymCounter value] descriptionForLisp]; + suffix = MLKPrintToString([gensymCounter value]); [gensymCounter setValue:[[gensymCounter value] add:[MLKInteger integerWithInt:1]]]; @@ -454,7 +454,7 @@ static id truify (BOOL value) +(NSArray *) ns_log:(NSArray *)args { - NSString *description = [[args objectAtIndex:0] descriptionForLisp]; + NSString *description = MLKPrintToString([args objectAtIndex:0]); NSLog (@"%@", description); RETURN_VALUE ([args objectAtIndex:0]); } |