From cba521fe42484b6689769a484408de56545d8678 Mon Sep 17 00:00:00 2001
From: Mark H Weaver <mhw@netris.org>
Date: Mon, 4 Mar 2013 18:37:23 -0500
Subject: [PATCH] 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 9c28a792b..393cf649d 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))
 
-- 
2.20.1