mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

Portability fix for new log and log10

Browse source 
* libguile/numbers.c: Define M_LN2 if it's not already defined.
  Fix error in comment.
This commit is contained in:
Mark H Weaver 2011-02-15 19:29:41 -05:00
parent dd6e37d032
commit 18966b8d5e
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/numbers.c
View file

@ -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)
{