/* Routines to deal with vraibles */

/* Internal structure, a variable points to this */
typedef struct var {
    struct Node var_Node;
    value val;
    short flags; /* Currently used for checking for recursion only */
} vbl;

/* Flags */
#define USED 0x0001

/* Find a variable in the current context */
#define find_var(name) ((vbl *)FindName((struct List *)current, (name)))