eqproc_check_type(ref *r)
{
    return r_has_type(r, t_array)
           || r_has_type(r, t_mixedarray)
           || r_has_type(r, t_shortarray)
           || r_has_type(r, t_oparray);
}
eqproc_check_type(ref *r)
{
    return r_has_type(r, t_array)
           || r_has_type(r, t_mixedarray)
           || r_has_type(r, t_shortarray)
           || r_has_type(r, t_oparray);
}