Basic: fix errors, reader, if form. Self-host 0-3

[jackhill/mal.git] / basic / reader.in.bas

diff --git a/basic/reader.in.bas b/basic/reader.in.bas
index 0bc1674..5b50aee 100644 (file)
--- a/basic/reader.in.bas
+++ b/basic/reader.in.bas
@@ -199,7 +199,9 @@ READ_FORM:
     IF T7<9 THEN L=T7
     T8=R: REM save previous value for release
     T=X%(X-1):N=R:GOSUB ALLOC
-    AY=T8:GOSUB RELEASE: REM list takes ownership
+    REM list takes ownership
+    IF L<9 THEN AY=L:GOSUB RELEASE
+    AY=T8:GOSUB RELEASE
 
     REM if previous element is the first element then set
     REM the first to the new element