[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/02: Fix bad arguments to range_error() in numbers.c
From: |
Daniel Llorens |
Subject: |
[Guile-commits] 01/02: Fix bad arguments to range_error() in numbers.c |
Date: |
Fri, 30 Sep 2022 06:05:41 -0400 (EDT) |
lloda pushed a commit to branch main
in repository guile.
commit c0004442b7691f59a0e37869ef288eb26382ad9e
Author: Daniel Llorens <lloda@sarc.name>
AuthorDate: Fri Sep 30 12:02:12 2022 +0200
Fix bad arguments to range_error() in numbers.c
Fixes https://debbugs.gnu.org/cgi/bugreport.cgi?bug=58154. Ouch.
---
libguile/numbers.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/libguile/numbers.c b/libguile/numbers.c
index f5e89b9f0..30a826f13 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -6782,7 +6782,7 @@ scm_to_uint32 (SCM arg)
}
else
scm_wrong_type_arg_msg (NULL, 0, arg, "exact integer");
- range_error (arg, 0, scm_integer_from_uint32 (UINT32_MAX));
+ range_error (arg, scm_integer_from_uint32 (0), scm_integer_from_uint32
(UINT32_MAX));
#elif SCM_SIZEOF_LONG == 8
return inum_in_range (arg, 0, UINT32_MAX);
#else
@@ -6838,7 +6838,7 @@ scm_to_uint64 (SCM arg)
}
else
scm_wrong_type_arg_msg (NULL, 0, arg, "exact integer");
- range_error (arg, 0, scm_integer_from_uint64 (UINT64_MAX));
+ range_error (arg, scm_integer_from_uint64(0), scm_integer_from_uint64
(UINT64_MAX));
}
SCM