update.

[chise/xemacs-chise.git-] / src / data.c

diff --git a/src/data.c b/src/data.c
index 5ae8feb..6480f34 100644 (file)
--- 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 */
 
@@ -1620,8 +1620,8 @@ make_weak_list (enum weak_list_type type)
 }
 
 static const struct lrecord_description weak_list_description[] = {
-  { XD_LISP_OBJECT, offsetof(struct weak_list, list), 1 },
-  { XD_LO_LINK,     offsetof(struct weak_list, next_weak) },
+  { XD_LISP_OBJECT, offsetof (struct weak_list, list) },
+  { XD_LO_LINK,     offsetof (struct weak_list, next_weak) },
   { XD_END }
 };