x-toplevel.h

Go to the documentation of this file.

#ifndef X_TOPLEVEL_H
#define X_TOPLEVEL_H
 
/*
 *     ., .,
 *     {O,O}
 *     (   )
 *      " "
 */
 
#include "x-obj.h"
 
typedef struct x_toplevel_t {
    x_obj_t *p_saved_stack, *p_saved_env;
    x_spair_t parked;   /* the displaced state, rooted for the bracket's length */
} x_toplevel_t;
 
void x_toplevel_enter(x_obj_t *p_base, x_toplevel_t *p_t);
 
void x_toplevel_leave(x_obj_t *p_base, x_toplevel_t *p_t);
 
#endif /* X_TOPLEVEL_H */