From 929971436891cb013d6ea2c18cb75447850aea5e Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Wed, 7 Jun 2000 07:10:01 +0000
Subject: [PATCH] (Fstring_to_number): Don't recognize floating point if base
 is not 10.

---
 src/data.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/data.c b/src/data.c
index 684e703..d4792d2 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1064,7 +1064,7 @@ Floating point numbers always use base 10.
     p++;
 
 #ifdef LISP_FLOAT_TYPE
-  if (isfloat_string (p))
+  if (isfloat_string (p) && b == 10)
     return make_float (atof (p));
 #endif /* LISP_FLOAT_TYPE */
 
-- 
1.7.10.4