From 18966b8d5ee07b26a3574af5c25f0f27ffaf17f6 Mon Sep 17 00:00:00 2001
From: Mark H Weaver <mhw@netris.org>
Date: Tue, 15 Feb 2011 19:29:41 -0500
Subject: [PATCH] Portability fix for new log and log10

* libguile/numbers.c: Define M_LN2 if it's not already defined.
  Fix error in comment.
---
 libguile/numbers.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/libguile/numbers.c b/libguile/numbers.c
index d0aacb7c4..b8cfa5dc9 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -72,6 +72,9 @@
 #ifndef M_LOG10E
 #define M_LOG10E   0.43429448190325182765
 #endif
+#ifndef M_LN2
+#define M_LN2	   0.69314718055994530942
+#endif
 #ifndef M_PI
 #define M_PI       3.14159265358979323846
 #endif
@@ -9399,7 +9402,7 @@ log_of_exact_integer_with_size (SCM n, long size)
     return log_of_shifted_double (scm_to_double (n), 0);
 }
 
-/* Returns log(n), for exact integer n of integer-length size */
+/* Returns log(n), for exact integer n */
 static SCM
 log_of_exact_integer (SCM n)
 {