From e163f7fbf1b3af95fef5ca13f8a36166cbdb0233 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Mon, 4 Mar 2013 18:37:23 -0500 Subject: [PATCH 04/10] Verify that FLT_RADIX is 2. * libguile/numbers.c: Trigger a compilation error if FLT_RADIX is not 2. This has long been assumed by code in numbers.c. --- libguile/numbers.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/libguile/numbers.c b/libguile/numbers.c index aa63fbd..f9c65a8 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -81,6 +81,9 @@ #define M_PI 3.14159265358979323846 #endif +/* FIXME: We assume that FLT_RADIX is 2 */ +verify (FLT_RADIX == 2); + typedef scm_t_signed_bits scm_t_inum; #define scm_from_inum(x) (scm_from_signed_integer (x)) -- 1.7.10.4