mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-03 16:20:39 +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

4
libguile/poll.c
View file

@ -1,4 +1,4 @@
/* Copyright 2010,2013,2018
/* Copyright 2010,2013,2018,2025
Free Software Foundation, Inc.
This file is part of Guile.
@ -99,7 +99,7 @@ scm_primitive_poll (SCM pollfds, SCM nfds, SCM ports, SCM timeout)
SCM_OUT_OF_RANGE (SCM_ARG2, nfds);
SCM_VALIDATE_VECTOR (SCM_ARG3, ports);
if (SCM_UNLIKELY (SCM_SIMPLE_VECTOR_LENGTH (ports) < c_nfds))
if (SCM_UNLIKELY (scm_c_vector_length (ports) < c_nfds))
SCM_OUT_OF_RANGE (SCM_ARG3, ports);
fds = (struct pollfd*)SCM_BYTEVECTOR_CONTENTS (pollfds);