diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-04 15:32:37 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-04 15:32:37 +0200 |
commit | 820c78beaccf784f710bdd91298401a745d93f2e (patch) | |
tree | 30a9e7a7cc6cf7ccd4aa953edc72b2e2b825b362 /MLKEnvironment.m | |
parent | eaf8e27a9860e404390da055510d1f8e4de33f1f (diff) |
Add MLKPrintToString along with a couple of fixnum handling functions.
Diffstat (limited to 'MLKEnvironment.m')
-rw-r--r-- | MLKEnvironment.m | 7 |
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]; } |