# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 876957174 0
# Node ID 684adb0dcfcca3f7d5c72512e3c245c364e88933
# Parent  1b8324e387729a2ea3b8d611b8bf6035430faed2
(Fstring_to_number): Handle NEGATIVE for floats too.

diff -r 1b8324e38772 -r 684adb0dcfcc src/data.c
--- a/src/data.c	Wed Oct 15 23:10:11 1997 +0000
+++ b/src/data.c	Wed Oct 15 23:12:54 1997 +0000
@@ -1997,7 +1997,7 @@
   
 #ifdef LISP_FLOAT_TYPE
   if (isfloat_string (p))
-    return make_float (atof (p));
+    return make_float (negative * atof (p));
 #endif /* LISP_FLOAT_TYPE */
 
   while (1)