kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-09-20 01:57:09 +03:00
Code Issues Projects Releases Wiki Activity

Basic: use RE from REP.

Browse Source
This commit is contained in:
Joel Martin 2016-11-18 00:46:07 -06:00
parent 9d59cdb384
commit 6aaee33ea8
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basic/stepA_mal.in.bas
View File

@ -515,7 +515,7 @@ REM RE(A$) -> R
REM Assume D has repl_env
REM caller must release result
RE:
R1=0
R1=-1
GOSUB MAL_READ
R1=R
IF ER<>-2 THEN GOTO RE_DONE
@ -524,18 +524,15 @@ RE:
RE_DONE:
REM Release memory from MAL_READ
IF R1<>0 THEN AY=R1:GOSUB RELEASE
AY=R1:GOSUB RELEASE
RETURN: REM caller must release result of EVAL
REM REP(A$) -> R$
REM Assume D has repl_env
SUB REP
R1=-1:R2=-1
GOSUB MAL_READ
R1=R
IF ER<>-2 THEN GOTO REP_DONE
R2=-1
A=R:E=D:CALL EVAL
GOSUB RE
R2=R
IF ER<>-2 THEN GOTO REP_DONE
@ -544,7 +541,6 @@ SUB REP
REP_DONE:
REM Release memory from MAL_READ and EVAL
AY=R2:GOSUB RELEASE
AY=R1:GOSUB RELEASE
END SUB
REM MAIN program