summaryrefslogtreecommitdiff
path: root/MLKCons.m
diff options
context:
space:
mode:
Diffstat (limited to 'MLKCons.m')
-rw-r--r--MLKCons.m4
1 files changed, 2 insertions, 2 deletions
diff --git a/MLKCons.m b/MLKCons.m
index c557dc2..7ed6d1c 100644
--- a/MLKCons.m
+++ b/MLKCons.m
@@ -103,11 +103,11 @@
return [NSString stringWithFormat:@"%@", [_car descriptionForLisp]];
else if ([_cdr isKindOfClass:[MLKCons class]])
return [NSString stringWithFormat:@"%@ %@",
- [_car descriptionForLisp],
+ (_car ? (id)[_car descriptionForLisp] : (id)@"()"),
[_cdr bareDescriptionForLisp]];
else
return [NSString stringWithFormat:@"%@ . %@",
- [_car descriptionForLisp],
+ (_car ? (id)[_car descriptionForLisp] : (id)@"()"),
[_cdr descriptionForLisp]];
}