#include "eval.h"

#include "env.h"

#include <assert.h>

void eval(am_t *am)
{
	assert(am->expr->is_atom);
	switch (am->expr->atom.type) {
	case ATOM_TYPE_EMPTY_LIST:
	case ATOM_TYPE_INTEGER:
	case ATOM_TYPE_PRIM_PROC:
		am->val = am->expr;
		break;
	case ATOM_TYPE_SYMBOL:
		env_fetch(am);
		break;
	}
}