cdo/imp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Push proc only once in procedure application

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2025-08-10 21:35:40 +01:00
parent 167e91d816
commit 068692e163
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/eval.c
View File

@@ -24,10 +24,9 @@ static void eval_list(am_t *am)
am_cdr(am, UNEV, EXPR);
am_car(am, EXPR, EXPR);
am_push(am, EXPR);
while (!AM_UNEV(am)->is_atom) {
am_push(am, EXPR);
am_push(am, ARGL);
am_car(am, EXPR, UNEV);
am_cdr(am, UNEV, UNEV);
am_push(am, UNEV);
@@ -36,10 +35,9 @@ static void eval_list(am_t *am)
am_pop(am, UNEV);
am_pop(am, ARGL);
am_pop(am, EXPR);
am_append(am, ARGL, VAL);
}
am_pop(am, EXPR);
env_fetch(am);
am_call(am, VAL);