Exemplo n.º 1
0
Arquivo: xlsym.c Projeto: 8l/csolve
/* xlgetvalue - get the value of a symbol (checked) */
NODE *xlgetvalue(NODE *sym)
{
    register NODE *val;
    while ((val = xlxgetvalue(sym)) == s_unbound)
	xlunbound(sym);
    return (val);
}
Exemplo n.º 2
0
/* xlgetvalue - get the value of a symbol (with check) */
LVAL xlgetvalue(LVAL sym)
{
    LVAL val;

    /* look for the value of the symbol */
    while ((val = xlxgetvalue(sym)) == s_unbound)
        xlunbound(sym);

    /* return the value */
    return (val);
}