diff options
author | Richard M. Stallman <rms@gnu.org> | 1993-06-01 20:29:48 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1993-06-01 20:29:48 +0000 |
commit | aa3f1d5a851d26afe6d54d68eac7c91161293f49 (patch) | |
tree | 9131bca6f97745e81ecc7892e94884be1ebca15f /src/floatfns.c | |
parent | bce98687598c1f0ffbeac21a39dee1ba6e57bfd4 (diff) | |
download | emacs-aa3f1d5a851d26afe6d54d68eac7c91161293f49.tar.gz |
[!FLOAT_CHECK_ERRNO] (IN_FLOAT): New definition.
(Flog): Fix argument of `log'.
Diffstat (limited to 'src/floatfns.c')
-rw-r--r-- | src/floatfns.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/floatfns.c b/src/floatfns.c index 1b6487afae8..f0222098025 100644 --- a/src/floatfns.c +++ b/src/floatfns.c @@ -154,6 +154,7 @@ static char *float_error_fn_name; } \ } while (0) #else +#define IN_FLOAT(d, name, num) (in_float = 1, (d), in_float = 0) #define IN_FLOAT2(d, name, num, num2) (in_float = 1, (d), in_float = 0) #endif @@ -471,7 +472,7 @@ If second optional argument BASE is given, return log ARG using that base.") if (b == 10.0) IN_FLOAT2 (d = log10 (d), "log", arg, base); else - IN_FLOAT2 (d = log (arg) / log (b), "log", arg, base); + IN_FLOAT2 (d = log (d) / log (b), "log", arg, base); } return make_float (d); } |