diff options
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/floatfns.c b/src/floatfns.c index eaa1b32eb17..cad071f1e15 100644 --- a/src/floatfns.c +++ b/src/floatfns.c | |||
| @@ -664,7 +664,7 @@ DEFUN ("abs", Fabs, Sabs, 1, 1, 0, | |||
| 664 | CHECK_NUMBER_OR_FLOAT (arg); | 664 | CHECK_NUMBER_OR_FLOAT (arg); |
| 665 | 665 | ||
| 666 | if (FLOATP (arg)) | 666 | if (FLOATP (arg)) |
| 667 | IN_FLOAT (arg = make_float (fabs (XFLOAT_DATA (arg))), "abs", arg); | 667 | arg = make_float (fabs (XFLOAT_DATA (arg))); |
| 668 | else if (XINT (arg) < 0) | 668 | else if (XINT (arg) < 0) |
| 669 | XSETINT (arg, - XINT (arg)); | 669 | XSETINT (arg, - XINT (arg)); |
| 670 | 670 | ||