X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fdata.c;h=310d76ab0132a55fdad4c6b84dd017cdd518e065;hb=280624d95d3fd2fdee5e852a92cdb7457736cba8;hp=20100db3b56f4b1ededd3341fb856b4cfd725cc6;hpb=b623fb6516df4ba24a9a16f8199b4341eb9aff52;p=chise%2Fxemacs-chise.git-

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 */