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

Fetch proc before evaluating arguments

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

7
lib/eval.c
View File

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