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))  
#define x_env_istree(B,E)       (x_env_isroot((B), (E)) || ! x_obj_type_isspair(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_args);
 
x_obj_t *x_env_bind(x_obj_t *p_base, x_obj_t *p_args);
 
x_obj_t *x_env_extend(x_obj_t *p_base, x_obj_t *p_args);
 
#endif /* X_ENV_H */