From: Paul Eggert <eggert@cs.ucla.edu>
Date: Wed, 16 Mar 2011 07:45:34 +0000 (-0700)
Subject: * floatfns.c (domain_error2): Define only if needed.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~554^2~31
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1384fa33581c398a3f3393c82be071d5784b0b04;p=emacs.git

* floatfns.c (domain_error2): Define only if needed.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 0ef92dbb53a..f57fa6d9e0f 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2011-03-16  Paul Eggert  <eggert@cs.ucla.edu>
 
+	* floatfns.c (domain_error2): Define only if needed.
+
 	* alloc.c (mark_backtrace): Move decl from here ...
 	* lisp.h: ... to here, so that it can be checked.
 
diff --git a/src/floatfns.c b/src/floatfns.c
index c00923643d1..c8b5236d34a 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -187,8 +187,10 @@ static const char *float_error_fn_name;
   xsignal3 (Qrange_error, build_string ((op)), (a1), (a2))
 #define domain_error(op,arg) \
   xsignal2 (Qdomain_error, build_string ((op)), (arg))
+#ifdef FLOAT_CHECK_DOMAIN
 #define domain_error2(op,a1,a2) \
   xsignal3 (Qdomain_error, build_string ((op)), (a1), (a2))
+#endif
 
 /* Extract a Lisp number as a `double', or signal an error.  */
 
@@ -1037,7 +1039,7 @@ syms_of_floatfns (void)
   defsubr (&Scopysign);
   defsubr (&Sfrexp);
   defsubr (&Sldexp);
-#endif 
+#endif
 #if 0
   defsubr (&Sacosh);
   defsubr (&Sasinh);
@@ -1074,4 +1076,3 @@ syms_of_floatfns (void)
   defsubr (&Sround);
   defsubr (&Struncate);
 }
-