From e4da1b456a71be2b344eb3fa3f3fdfe44c669bc0 Mon Sep 17 00:00:00 2001
From: Daniel Llorens <daniel.llorens@bluewin.ch>
Date: Wed, 10 Oct 2018 19:45:30 +0200
Subject: [PATCH] Fix 32/64 bit bug in INTEGER_ACCESSOR_PROLOGUE

---
 libguile/bytevectors.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/bytevectors.c b/libguile/bytevectors.c
index 203bb835e..6e3c9503d 100644
--- a/libguile/bytevectors.c
+++ b/libguile/bytevectors.c
@@ -88,7 +88,7 @@
   _sign char *c_bv;						\
 								\
   SCM_VALIDATE_##validate (1, bv);                              \
-  c_index = scm_to_uint (index);				\
+  c_index = scm_to_size_t (index);				\
 								\
   c_len = SCM_BYTEVECTOR_LENGTH (bv);				\
   c_bv = (_sign char *) SCM_BYTEVECTOR_CONTENTS (bv);		\