diff options
Diffstat (limited to 'MLKInterpreter.m')
-rw-r--r-- | MLKInterpreter.m | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/MLKInterpreter.m b/MLKInterpreter.m index 48a4bc9..4341e55 100644 --- a/MLKInterpreter.m +++ b/MLKInterpreter.m @@ -1334,19 +1334,24 @@ static MLKSymbol *MULTIPLE_VALUE_CALL; id result; id expansion; //NSLog (@"; LOAD: Reding a form."); - id code = [MLKReader readFromStream:stream - eofError:NO - eofValue:eofValue - recursive:NO - preserveWhitespace:NO]; + id code; //NSLog (@"; LOAD: Reading finished."); NSString *formdesc; + NSAutoreleasePool *pool; //NSLog (@"%@", code); //NSLog (@"%@", [code descriptionForLisp]); //NSLog (@"%@", stream); //NSLog (@"..."); + pool = [[NSAutoreleasePool alloc] init]; + + code = [MLKReader readFromStream:stream + eofError:NO + eofValue:eofValue + recursive:NO + preserveWhitespace:NO]; + if (code == eofValue) break; @@ -1383,6 +1388,8 @@ static MLKSymbol *MULTIPLE_VALUE_CALL; expandOnly:NO]; //NSLog (@"; LOAD: Top-level form evaluated."); + RELEASE (pool); + if (print) { //FIXME |