From 820c78beaccf784f710bdd91298401a745d93f2e Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Mon, 4 Aug 2008 15:32:37 +0200
Subject: Add MLKPrintToString along with a couple of fixnum handling
 functions.

---
 MLKCons.m | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'MLKCons.m')

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
-- 
cgit v1.2.3