From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 26 Jun 2011 09:20:02 +0000 (-0700)
Subject: Provide definitions for M_LN2 and M_SQRT1_2 if they aren't otherwise defined.
X-Git-Tag: release-9.1.0~17
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7f1b231f119adac303aa81e4206f503f9a557d20;p=mit-scheme.git

Provide definitions for M_LN2 and M_SQRT1_2 if they aren't otherwise defined.
---

diff --git a/src/microcode/flonum.c b/src/microcode/flonum.c
index f2c5033e4..1d50db419 100644
--- a/src/microcode/flonum.c
+++ b/src/microcode/flonum.c
@@ -30,6 +30,14 @@ USA.
 #include "prims.h"
 #include <errno.h>
 
+#ifndef M_LN2
+#  define M_LN2       0.693147180559945309417232121458176568  /* log e2 */
+#endif
+
+#ifndef M_SQRT1_2
+#  define M_SQRT1_2   0.707106781186547524400844362104849039  /* 1/sqrt(2) */
+#endif
+
 double
 arg_flonum (int arg_number)
 {