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

Add call AM operation

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2025-08-10 21:33:25 +01:00
parent 426d270318
commit 167e91d816
4 changed files with 34 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/eval.c
View File

@@ -41,14 +41,8 @@ static void eval_list(am_t *am)
am_append(am, ARGL, VAL);
}
assert(AM_EXPR(am)->is_atom);
assert(AM_EXPR(am)->atom.type == ATOM_TYPE_SYMBOL);
env_fetch(am);
assert(AM_VAL(am)->is_atom);
assert(AM_VAL(am)->atom.type == ATOM_TYPE_PRIM_PROC);
assert(AM_VAL(am)->atom.prim_proc != NULL);
AM_VAL(am)->atom.prim_proc(am);
am_call(am, VAL);
}
void eval(am_t *am)