From a4c9f5bd436dae1d99845f50da55bae733129f56 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Mon, 4 Aug 2008 16:20:18 +0200
Subject: Add fixnum-aware macros LRETAIN, LRELEASE, LDESTROY, LAUTORELEASE,
 LASSIGN_COPY, and LASSIGN.

---
 MLKReadEvalPrintLoop.m | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'MLKReadEvalPrintLoop.m')

diff --git a/MLKReadEvalPrintLoop.m b/MLKReadEvalPrintLoop.m
index 2300b77..3c8490b 100644
--- a/MLKReadEvalPrintLoop.m
+++ b/MLKReadEvalPrintLoop.m
@@ -85,7 +85,7 @@ static const char *prompt (EditLine *e) {
   NS_DURING
     {
       input = [NSInputStream inputStreamWithFileAtPath:@"init.lisp"];
-      stream = AUTORELEASE ([[MLKStream alloc] initWithInputStream:input]);
+      stream = LAUTORELEASE ([[MLKStream alloc] initWithInputStream:input]);
 
       [input open];
       [MLKInterpreter load:stream verbose:YES print:YES];
@@ -111,7 +111,7 @@ static const char *prompt (EditLine *e) {
     forSymbol:[[MLKPackage findPackage:@"TOILET-SYSTEM"]
                 intern:@"*SYSTEM-INITIALISED-P*"]];
 
-  RELEASE (pool);
+  LRELEASE (pool);
 
   while (1)
     {
@@ -155,7 +155,7 @@ static const char *prompt (EditLine *e) {
             }
           NS_ENDHANDLER;
 
-          RELEASE (pool);
+          LRELEASE (pool);
         }
 
       //free (line);
@@ -174,6 +174,6 @@ int main (int argc, char **argv)
   NSAutoreleasePool *pool;
   pool = [[NSAutoreleasePool alloc] init];
   [MLKReadEvalPrintLoop run];
-  RELEASE (pool);
+  LRELEASE (pool);
   return 0;
 }
-- 
cgit v1.2.3