Exemple #1
0
/* xlmakesym - make a new symbol node */
NODE *xlmakesym(char *name,int type)
{
    NODE *sym;
    sym = (type == DYNAMIC ? cvsymbol(name) : cvcsymbol(name));
    setvalue(sym,*name == ':' ? sym : s_unbound);
    return (sym);
}
Exemple #2
0
NODE *xlmakesym(char *name, int type)
{
NODE *sym;
sym = (type == 0 ? cvsymbol(name) : cvcsymbol(name));
((sym)->n_info.n_xsym.xsy_value = (*name == ':' ? sym : s_unbound));
return (sym);
}
Exemple #3
0
/* xlmakesym - make a new symbol node */
LVAL xlmakesym(char *name)
{
    LVAL sym;
    sym = cvsymbol(name);
    if (*name == ':')
        setvalue(sym,sym);
    return (sym);
}