Implement +, * and - primitives
This commit is contained in:
@@ -1,5 +1,7 @@
|
||||
#include "env.h"
|
||||
|
||||
#include "prim.h"
|
||||
|
||||
#include <assert.h>
|
||||
#include <string.h>
|
||||
|
||||
@@ -50,6 +52,7 @@ static expr_t **lookup(am_t *am, bool *found)
|
||||
void env_init(am_t *am, store_t *store)
|
||||
{
|
||||
am->env = expr_empty_list(store);
|
||||
prim_load(am, store);
|
||||
}
|
||||
|
||||
void env_fetch(am_t *am)
|
||||
|
||||
Reference in New Issue
Block a user