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

Handle argument evaluation

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2025-08-10 19:54:09 +01:00
parent 624311d04f
commit 662b99a40f
3 changed files with 48 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lib/eval.c
View File

@@ -20,9 +20,29 @@ static void eval_atom(am_t *am)
static void eval_list(am_t *am)
{
am->argl = am->expr->pair.cdr;
am->argl = expr_empty_list(am);
am->unev = am->expr->pair.cdr;
am->expr = am->expr->pair.car;
while (!am->unev->is_atom) {
am_push(am);
am->expr = am->unev->pair.cdr;
am_push(am);
am->expr = am->argl;
am_push(am);
am->expr = am->unev->pair.car;
eval(am);
am_pop(am);
am->argl = am->expr;
am_append_arg(am);
am_pop(am);
am->unev = am->expr;
am_pop(am);
}
assert(am->expr->is_atom);
assert(am->expr->atom.type == ATOM_TYPE_SYMBOL);
env_fetch(am);