mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-01 23:30:28 +02:00
Code Activity

Inline scm_is_vector

Browse source 
* libguile/vectors.h (scm_is_vector): Define inline.
(SCM_I_IS_VECTOR): Remove.
* libguile/eval.c (env_tail): Use scm_is_vector.
* libguile/vectors.c (scm_is_vector): Remove.
This commit is contained in:
Andy Wingo 2025-06-24 10:54:22 +02:00
parent 05e868892b
commit 7dfbb8bc4b
3 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/eval.c
View file

@ -218,7 +218,7 @@ next_rib (SCM env)
static SCM
env_tail (SCM env)
{
while (SCM_I_IS_VECTOR (env))
while (scm_is_vector (env))
env = next_rib (env);
return env;
}