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

Create car, cdr and assign AM operations

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2025-08-10 21:15:36 +01:00
parent eaef6f3cd3
commit 426d270318
4 changed files with 68 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
lib/eval.c
View File

@@ -10,7 +10,7 @@ static void eval_atom(am_t *am)
case ATOM_TYPE_EMPTY_LIST:
case ATOM_TYPE_INTEGER:
case ATOM_TYPE_PRIM_PROC:
AM_VAL(am) = AM_EXPR(am);
am_assign(am, VAL, EXPR);
break;
case ATOM_TYPE_SYMBOL:
env_fetch(am);
@@ -21,23 +21,24 @@ static void eval_atom(am_t *am)
static void eval_list(am_t *am)
{
AM_ARGL(am) = expr_empty_list(am);
AM_UNEV(am) = AM_EXPR(am)->pair.cdr;
AM_EXPR(am) = AM_EXPR(am)->pair.car;
am_cdr(am, UNEV, EXPR);
am_car(am, EXPR, EXPR);
while (!AM_UNEV(am)->is_atom) {
am_push(am, EXPR);
AM_EXPR(am) = AM_UNEV(am)->pair.cdr;
am_push(am, EXPR);
am_push(am, ARGL);
AM_EXPR(am) = AM_UNEV(am)->pair.car;
am_car(am, EXPR, UNEV);
am_cdr(am, UNEV, UNEV);
am_push(am, UNEV);
eval(am);
am_pop(am, ARGL);
am_append(am, ARGL, VAL);
am_pop(am, UNEV);
am_pop(am, ARGL);
am_pop(am, EXPR);
am_append(am, ARGL, VAL);
}
assert(AM_EXPR(am)->is_atom);