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);

2
lib/include/am.h
View File

@@ -7,7 +7,7 @@
#define AM_STACK_SIZE 128U
typedef struct am {
expr_t *argl, *env, *expr, *val;
expr_t *argl, *env, *expr, *unev, *val;
expr_t **sp, *stack[AM_STACK_SIZE];
store_t store;
} am_t;