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

Switch all users of SCM_SIMPLE_VECTOR_LENGTH to scm_c_vector_length

Browse source 
* libguile/arrays.c:
* libguile/eval.c:
* libguile/filesys.c:
* libguile/hash.c:
* libguile/hashtab.c:
* libguile/memoize.c:
* libguile/modules.c:
* libguile/poll.c:
* libguile/posix.c:
* libguile/print.c:
* libguile/socket.c:
* libguile/stime.c: Use C function instead of macro.
This commit is contained in:
Andy Wingo 2025-06-24 09:59:24 +02:00
parent 0a5d2ffb1a
commit d73c675fa6
12 changed files with 34 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/arrays.c
View file

@ -836,7 +836,7 @@ SCM_DEFINE (scm_transpose_array, "transpose-array", 1, 0, 1,
SCM vargs = scm_vector (args);
struct scm_array *ra = scm_to_array (array);
if (SCM_SIMPLE_VECTOR_LENGTH (vargs) != scm_array_dimension_count (ra))
if (scm_c_vector_length (vargs) != scm_array_dimension_count (ra))
SCM_WRONG_NUM_ARGS ();
ndim = 0;
for (k = 0; k < scm_array_dimension_count (ra); k++)