andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

eval/apply: continue!

This commit is contained in:
Jan Nieuwenhuizen 2019-10-26 16:03:20 +02:00
parent c474d34a4c
commit ce9bd2a891
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/eval-apply.c
View File

@ -886,6 +886,7 @@ begin_expand:
x = cell_unspecified; x = cell_unspecified;
while (R1 != cell_nil) while (R1 != cell_nil)
{ {
begin_expand_while:
gc_check (); gc_check ();
if (TYPE (R1) == TPAIR) if (TYPE (R1) == TPAIR)
@ -923,7 +924,8 @@ begin_expand:
R1 = cons (cell_symbol_begin, R1); R1 = cons (cell_symbol_begin, R1);
CAR (R2) = R1; CAR (R2) = R1;
R1 = R2; R1 = R2;
continue; goto begin_expand_while;
continue; /* FIXME: M2-PLanet */
} }
} }
@ -934,7 +936,8 @@ begin_expand:
{ {
CAR (R2) = R1; CAR (R2) = R1;
R1 = R2; R1 = R2;
continue; goto begin_expand_while;
continue; /* FIXME: M2-PLanet */
} }
R1 = R2; R1 = R2;
expand_variable (CAR (R1), cell_nil); expand_variable (CAR (R1), cell_nil);