diff options
| author | Karl Heuer | 1997-10-15 23:12:54 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-10-15 23:12:54 +0000 |
| commit | 142d91357fe87de90bfe7e789cd57ada662fc349 (patch) | |
| tree | dcea48b0b6c8608da9852fc9ae09d3fafbeed1d9 /src | |
| parent | 8d8c434d4f0919e602f31be513ca811acd7e446e (diff) | |
| download | emacs-142d91357fe87de90bfe7e789cd57ada662fc349.tar.gz emacs-142d91357fe87de90bfe7e789cd57ada662fc349.zip | |
(Fstring_to_number): Handle NEGATIVE for floats too.
Diffstat (limited to 'src')
| -rw-r--r-- | src/data.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/data.c b/src/data.c index 8b970959f9e..8a3d7191f07 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -1997,7 +1997,7 @@ Floating point numbers always use base 10.") | |||
| 1997 | 1997 | ||
| 1998 | #ifdef LISP_FLOAT_TYPE | 1998 | #ifdef LISP_FLOAT_TYPE |
| 1999 | if (isfloat_string (p)) | 1999 | if (isfloat_string (p)) |
| 2000 | return make_float (atof (p)); | 2000 | return make_float (negative * atof (p)); |
| 2001 | #endif /* LISP_FLOAT_TYPE */ | 2001 | #endif /* LISP_FLOAT_TYPE */ |
| 2002 | 2002 | ||
| 2003 | while (1) | 2003 | while (1) |