summaryrefslogtreecommitdiff
path: root/MLKEnvironment.m
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-08-04 15:32:37 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-08-04 15:32:37 +0200
commit820c78beaccf784f710bdd91298401a745d93f2e (patch)
tree30a9e7a7cc6cf7ccd4aa953edc72b2e2b825b362 /MLKEnvironment.m
parenteaf8e27a9860e404390da055510d1f8e4de33f1f (diff)
Add MLKPrintToString along with a couple of fixnum handling functions.
Diffstat (limited to 'MLKEnvironment.m')
-rw-r--r--MLKEnvironment.m7
1 files changed, 4 insertions, 3 deletions
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];
}