From 1ddc4eb964171a6ea9628b0c537040e0e10c8ad1 Mon Sep 17 00:00:00 2001
From: Michael Gran <spk121@yahoo.com>
Date: Sat, 15 Oct 2022 10:28:47 -0700
Subject: [PATCH] Fixes arg type for scm_integer_from_mpz

The definition and the declaration for scm_integer_from_mpz
do not match

* libguile/integers.c (scm_integer_from_mpz): takes const mpz_t arg
  No callers need to be changed.
---
 libguile/integers.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/integers.c b/libguile/integers.c
index 168593da5..cc62d1c78 100644
--- a/libguile/integers.c
+++ b/libguile/integers.c
@@ -493,7 +493,7 @@ bignum_cmp_long (struct scm_bignum *z, long l)
 }
 
 SCM
-scm_integer_from_mpz (mpz_srcptr mpz)
+scm_integer_from_mpz (const mpz_t mpz)
 {
   return normalize_bignum (make_bignum_from_mpz (mpz));
 }