From: tomo <tomo>
Date: Mon, 15 Nov 1999 19:24:50 +0000 (+0000)
Subject: (Fstring_to_number): Don't recognize floating point if base is not 10.
X-Git-Tag: r21-2-19-utf-2000-0_13-0~179
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3402d04dc027f1c649f1c9e7a6f5d9e7e453e117;p=chise%2Fxemacs-chise.git

(Fstring_to_number): Don't recognize floating point if base is not 10.
---

diff --git a/src/data.c b/src/data.c
index 20100db..310d76a 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1068,7 +1068,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 */