summaryrefslogtreecommitdiff
path: root/MLKCons.m
diff options
context:
space:
mode:
Diffstat (limited to 'MLKCons.m')
-rw-r--r--MLKCons.m8
1 files changed, 4 insertions, 4 deletions
diff --git a/MLKCons.m b/MLKCons.m
index d7063dc..469275b 100644
--- a/MLKCons.m
+++ b/MLKCons.m
@@ -102,15 +102,15 @@
{
if (!_cdr)
return [NSString stringWithFormat:@"%@",
- (_car ? (id)[_car descriptionForLisp] : (id)@"()")];
+ MLKPrintToString(_car)];
else if ([_cdr isKindOfClass:[MLKCons class]])
return [NSString stringWithFormat:@"%@ %@",
- (_car ? (id)[_car descriptionForLisp] : (id)@"()"),
+ MLKPrintToString(_car),
[_cdr bareDescriptionForLisp]];
else
return [NSString stringWithFormat:@"%@ . %@",
- (_car ? (id)[_car descriptionForLisp] : (id)@"()"),
- [_cdr descriptionForLisp]];
+ MLKPrintToString(_car),
+ MLKPrintToString(_cdr)];
}
-(NSString *)descriptionForLisp