diff options
| author | Gerd Moellmann | 2001-10-11 15:39:47 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-10-11 15:39:47 +0000 |
| commit | cb938d466064a865f7b6f9748d44b5f5baccdd6c (patch) | |
| tree | 0fac0a2e2f8b194ac8569526f5b0a14c440d8cbe /src/data.c | |
| parent | 1615d97a5d7571741f3ed4919d1473e001a22ab1 (diff) | |
| download | emacs-cb938d466064a865f7b6f9748d44b5f5baccdd6c.tar.gz emacs-cb938d466064a865f7b6f9748d44b5f5baccdd6c.zip | |
(Fstring_to_number): Use make_fixnum_or_float.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/data.c b/src/data.c index ad39e82a057..336afa98d8c 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -2353,10 +2353,7 @@ If the base used is not 10, floating point is not recognized.") | |||
| 2353 | v = v * b + digit; | 2353 | v = v * b + digit; |
| 2354 | } | 2354 | } |
| 2355 | 2355 | ||
| 2356 | if (v > (EMACS_UINT) (VALMASK >> 1)) | 2356 | val = make_fixnum_or_float (sign * v); |
| 2357 | val = make_float (sign * v); | ||
| 2358 | else | ||
| 2359 | val = make_number (sign * (int) v); | ||
| 2360 | } | 2357 | } |
| 2361 | 2358 | ||
| 2362 | return val; | 2359 | return val; |