x-env.h

Go to the documentation of this file.

#ifndef X_ENV_H
#define X_ENV_H
 
/*
 *     ., .,
 *     {O,O}
 *     (   )
 *      " "
 */
 
#include "x-obj.h"
 
#define x_env_bindings(E)       x_firstobj(E)   
#define x_env_parent(E)         x_restobj(E)    
#define x_env_isroot(B,E)       x_obj_isnil((B), x_restobj(E))  
x_obj_t *x_env_make(x_obj_t *p_base, x_obj_t *p_parent);
 
x_obj_t *x_env_lookup(x_obj_t *p_base, x_obj_t *p_env, x_obj_t *p_sym);
 
x_obj_t *x_env_bind(x_obj_t *p_base, x_obj_t *p_env,
    x_obj_t *p_sym, x_obj_t *p_val);
 
x_obj_t *x_env_extend(x_obj_t *p_base, x_obj_t *p_parent,
    x_obj_t *p_params, x_obj_t *p_vals);
 
#endif /* X_ENV_H */