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

Make AM registers into an array

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2025-08-10 20:30:07 +01:00
parent 52a42d2937
commit 57c39fd00b
14 changed files with 311 additions and 288 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/am.c
View File

@@ -17,22 +17,22 @@ void am_init(am_t *am)
void am_push(am_t *am)
{
assert(am->sp >= am->stack);
*am->sp-- = am->expr;
*am->sp-- = AM_EXPR(am);
}
void am_pop(am_t *am)
{
assert(am->sp < am->stack + AM_STACK_SIZE - 1);
am->expr = *++am->sp;
AM_EXPR(am) = *++am->sp;
}
void am_append_arg(am_t *am)
{
expr_t *list = am->argl;
expr_t *list = AM_ARGL(am);
while (!list->is_atom)
list = list->pair.cdr;
list->is_atom = false;
list->pair.car = am->val;
list->pair.car = AM_VAL(am);
list->pair.cdr = expr_empty_list(am);
}