[Guile-commits] 07/26: array-fill!: have rafill helper accept *three* arguments

[Daniel Llorens]

lloda pushed a commit to branch main
in repository guile.

commit 2e25bf20668eb472c6e19b11a0f1c763ffe73718
Author: Rob Browning <r...@defaultvalue.org>
AuthorDate: Wed Sep 3 17:49:01 2025 -0500

    array-fill!: have rafill helper accept *three* arguments
    
    array-fill! calls scm_ramapc() on rafill(), which accepts two arguments,
    with the fill as the data argument, but when data is not SCM_UNBNDP(),
    scm_ramapc() calls its cproc (in this case rafill) with three
    arguments. So have rafill accept a third, ignored argument.
    
    * libguile/array-map.c (rafill): accept third (ignored) argument.
---
 libguile/array-map.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/array-map.c b/libguile/array-map.c
index ce0f7ba09..794532708 100644
--- a/libguile/array-map.c
+++ b/libguile/array-map.c
@@ -221,7 +221,7 @@ scm_ramapc (void *cproc_ptr, SCM data, SCM ra0, SCM lra, 
const char *what)
 #undef LBND
 
 static int
-rafill (SCM dst, SCM fill)
+rafill (SCM dst, SCM fill, SCM ignored)
 {
   size_t n = SCM_I_ARRAY_DIMS (dst)->ubnd + 1;
   size_t i = SCM_I_ARRAY_BASE (dst);