summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--MLKCons.m3
1 files changed, 2 insertions, 1 deletions
diff --git a/MLKCons.m b/MLKCons.m
index 7ed6d1c..6b6cc8b 100644
--- a/MLKCons.m
+++ b/MLKCons.m
@@ -100,7 +100,8 @@
-(NSString *)bareDescriptionForLisp
{
if (!_cdr)
- return [NSString stringWithFormat:@"%@", [_car descriptionForLisp]];
+ return [NSString stringWithFormat:@"%@",
+ (_car ? (id)[_car descriptionForLisp] : (id)@"()")];
else if ([_cdr isKindOfClass:[MLKCons class]])
return [NSString stringWithFormat:@"%@ %@",
(_car ? (id)[_car descriptionForLisp] : (id)@"()"),