[MacPorts] #74227: guile3.0@@3.0.10_1 installation fails: incompatible function pointer types passing

[MacPorts]

#74227: guile3.0@@3.0.10_1 installation fails:  incompatible function pointer types
passing
----------------------+-----------------------
 Reporter:  kwolcott  |      Owner:  (none)
     Type:  defect    |     Status:  new
 Priority:  Normal    |  Milestone:
Component:  ports     |    Version:
 Keywords:  arm64     |       Port:  guile-3.0
----------------------+-----------------------
 guile3.0@@3.0.10_1 installation fails

 {{{
 :info:build make[3]: Entering directory
 `/opt/local/var/macports/build/guile-3.0-8bcc079f/work/guile-3.0.10/libguile'
 :info:build   CC       libguile_3.0_la-alist.lo
 :info:build   CC       guile-guile.o
 :info:build   CC       libguile_3.0_la-async.lo
 :info:build   CC       libguile_3.0_la-array-handle.lo
 :info:build   CC       libguile_3.0_la-array-map.lo
 :info:build   CC       libguile_3.0_la-arrays.lo
 :info:build   CC       libguile_3.0_la-backtrace.lo
 :info:build   CC       libguile_3.0_la-atomic.lo
 :info:build   CC       libguile_3.0_la-bitvectors.lo
 :info:build   CC       libguile_3.0_la-boolean.lo
 :info:build   CC       libguile_3.0_la-bytevectors.lo
 :info:build backtrace.c:329:51: error: incompatible function pointer types
 passing 'SCM (SCM, SCM, SCM, SCM)' (aka 'struct scm_unused_struc
 t *(struct scm_unused_struct *, struct scm_unused_struct *, struct
 scm_unused_struct *, struct scm_unused_struct *)') to parameter of type
 'scm_t_subr' (aka 'struct scm_unused_struct *(*)(void)') [-Wincompatible-
 function-pointer-types]
 :info:build   329 |   scm_c_define_gsubr ("print-exception", 4, 0, 0,
 boot_print_exception);
 :info:build       |
 ^~~~~~~~~~~~~~~~~~~~
 :info:build ./gsubr.h:72:43: note: passing argument to parameter 'fcn'
 here
 :info:build    72 |                                 int req, int opt, int
 rst, scm_t_subr fcn);
 :info:build       |
 ^
 :info:build array-map.c:200:45: error: too many arguments to function
 call, expected 0, have 2
 :info:build   200 |           if (! (SCM_UNBNDP (data) ? cproc (va0, lva)
 : cproc (va0, data, lva)))
 :info:build       |                                      ~~~~~  ^~~~~~~~
 :info:build array-map.c:200:64: error: too many arguments to function
 call, expected 0, have 3
 :info:build   200 |           if (! (SCM_UNBNDP (data) ? cproc (va0, lva)
 : cproc (va0, data, lva)))
 :info:build       |
 ~~~~~  ^~~~~~~~~~~~~~
 :info:build 1 error generated.
 }}}

-- 
Ticket URL: <https://trac.macports.org/ticket/74227>
MacPorts <https://www.macports.org/>
Ports system for macOS