From 23e160f2d0957339e054e17fa536d777cadf41b5 Mon Sep 17 00:00:00 2001
From: Leon Henrik Plickat <leonhenrik.plickat@stud.uni-goettingen.de>
Date: Sat, 25 Nov 2023 20:59:25 +0100
Subject: [PATCH] round number before converting to exact

---
 riverguile.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/riverguile.c b/riverguile.c
index 8b3ccf6..25acf15 100644
--- a/riverguile.c
+++ b/riverguile.c
@@ -52,7 +52,7 @@ static bool scm2uint(uint32_t *x, SCM s)
 {
 	if ( scm_is_false(scm_number_p(s)) == 1 )
 		return false;
-	*x = scm_to_uint32(scm_inexact_to_exact(s));
+	*x = scm_to_uint32(scm_inexact_to_exact(scm_round_number(s)));
 	return true;
 }