aboutsummaryrefslogtreecommitdiffstats
path: root/src/floatfns.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/floatfns.c')
-rw-r--r--src/floatfns.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/floatfns.c b/src/floatfns.c
index 81cf6bdb61f..2011b4d942d 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -71,7 +71,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
71extern double logb (double); 71extern double logb (double);
72#endif /* not HPUX and HAVE_LOGB and no logb macro */ 72#endif /* not HPUX and HAVE_LOGB and no logb macro */
73 73
74#if defined(DOMAIN) && defined(SING) && defined(OVERFLOW) 74#if defined (DOMAIN) && defined (SING) && defined (OVERFLOW)
75 /* If those are defined, then this is probably a `matherr' machine. */ 75 /* If those are defined, then this is probably a `matherr' machine. */
76# ifndef HAVE_MATHERR 76# ifndef HAVE_MATHERR
77# define HAVE_MATHERR 77# define HAVE_MATHERR
@@ -519,7 +519,7 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0,
519 if (f1 == 0.0 && f2 == 0.0) 519 if (f1 == 0.0 && f2 == 0.0)
520 f1 = 1.0; 520 f1 = 1.0;
521#ifdef FLOAT_CHECK_DOMAIN 521#ifdef FLOAT_CHECK_DOMAIN
522 else if ((f1 == 0.0 && f2 < 0.0) || (f1 < 0 && f2 != floor(f2))) 522 else if ((f1 == 0.0 && f2 < 0.0) || (f1 < 0 && f2 != floor (f2)))
523 domain_error2 ("expt", arg1, arg2); 523 domain_error2 ("expt", arg1, arg2);
524#endif 524#endif
525 IN_FLOAT2 (f3 = pow (f1, f2), "expt", arg1, arg2); 525 IN_FLOAT2 (f3 = pow (f1, f2), "expt", arg1, arg2);