/* 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);
}
/* 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);
}
/* xsymvalue - get the value of a symbol */
LVAL xsymvalue(void)
{
LVAL sym,val;
/* get the symbol */
sym = xlgasymbol();
xllastarg();
/* get the global value */
while ((val = getvalue(sym)) == s_unbound)
xlunbound(sym);
/* return its value */
return (val);
}
