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.

---
 MLKEnvironment.m | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'MLKEnvironment.m')

diff --git a/MLKEnvironment.m b/MLKEnvironment.m
index c557f79..215d3dc 100644
--- a/MLKEnvironment.m
+++ b/MLKEnvironment.m
@@ -25,6 +25,7 @@
 #import "MLKEnvironment.h"
 #import "NSObject-MLKPrinting.h"
 #import "runtime-compatibility.h"
+#import "util.h"
 
 
 @implementation MLKEnvironment
@@ -80,7 +81,7 @@
   if (!(binding = [self bindingForSymbol:symbol]))
     [NSException raise:@"MLKUnboundVariableError"
                  format:@"The variable %@ is unbound.",
-                       [symbol descriptionForLisp]];
+                       MLKPrintToString(symbol)];
 
   [binding setValue:value];
 }
@@ -92,7 +93,7 @@
   if (!(binding = [self bindingForSymbol:symbol]))
     [NSException raise:@"MLKUnboundVariableError"
                  format:@"The variable %@ is unbound.",
-                       [symbol descriptionForLisp]];
+                       MLKPrintToString(symbol)];
       
   return [binding value];
 }
@@ -158,7 +159,7 @@
   if (![self bindingForSymbol:symbol])
     [NSException raise:@"MLKUnboundVariableError"
                  format:@"The variable %@ is unbound.",
-                        [symbol descriptionForLisp]];
+                        MLKPrintToString(symbol)];
   [self addBinding:binding forSymbol:symbol];
 }
 
-- 
cgit v1.2.3