(M40310): Separate U+925B, C1-6745 and J90-3174.

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

diff --git a/src/data.c b/src/data.c
index 9cf8ff4..12d4afd 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -660,7 +660,7 @@ indirect_function (Lisp_Object object, int errorp)
     }
 
   if (errorp && UNBOUNDP (hare))
-    signal_void_function_error (object);
+    return signal_void_function_error (object);
 
   return hare;
 }
@@ -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 */