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 /MLKReadEvalPrintLoop.m | |
| parent | eaf8e27a9860e404390da055510d1f8e4de33f1f (diff) | |
Add MLKPrintToString along with a couple of fixnum handling functions.
Diffstat (limited to 'MLKReadEvalPrintLoop.m')
| -rw-r--r-- | MLKReadEvalPrintLoop.m | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/MLKReadEvalPrintLoop.m b/MLKReadEvalPrintLoop.m index f2a7803..2300b77 100644 --- a/MLKReadEvalPrintLoop.m +++ b/MLKReadEvalPrintLoop.m @@ -24,6 +24,7 @@ #import "MLKReader.h" #import "NSObject-MLKPrinting.h" #import "runtime-compatibility.h" +#import "util.h" #import <Foundation/NSAutoreleasePool.h> #import <Foundation/NSException.h> @@ -143,10 +144,7 @@ static const char *prompt (EditLine *e) { for (i = 0; i < [results count]; i++) { id result = [results objectAtIndex:i]; - if (result != [NSNull null]) - printf ("%s\n", [[result descriptionForLisp] UTF8String]); - else - printf ("()\n"); + printf ("%s\n", [MLKPrintToString (denullify (result)) UTF8String]); } } NS_HANDLER |