/* 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); }