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.

---
 MLKRoot.m | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'MLKRoot.m')

diff --git a/MLKRoot.m b/MLKRoot.m
index e3680f3..689828e 100644
--- a/MLKRoot.m
+++ b/MLKRoot.m
@@ -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]);
 }
-- 
cgit v1.2.3