static SCM env_tail (SCM env) { while (SCM_I_IS_VECTOR (env)) env = next_rib (env); return env; }
int scm_is_simple_vector (SCM obj) { return SCM_I_IS_VECTOR (obj); }