diff options
author | Ludovic Courtès <ludo@gnu.org> | 2007-04-17 14:12:17 +0000 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2007-04-17 14:12:17 +0000 |
commit | 1911e3da17638c31bd2fe638c9727f560fd1c1ec (patch) | |
tree | 8ea4a830d38213120929df924cd72cf0c9727793 /libguile/numbers.c | |
parent | 1d8ce4c04d984a6a60104ccf47b9b8679d44a493 (diff) | |
download | guile-1911e3da17638c31bd2fe638c9727f560fd1c1ec.tar.gz |
Changes from arch/CVS synchronization
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r-- | libguile/numbers.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c index 4454a342c..522621b22 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -5997,8 +5997,8 @@ scm_is_number (SCM z) return scm_is_true (scm_number_p (z)); } -#if HAVE_COMPLEX_DOUBLE -#if !HAVE_CLOG +#ifdef HAVE_COMPLEX_DOUBLE +#ifndef HAVE_CLOG complex double clog (complex double z); complex double clog (complex double z) @@ -6007,7 +6007,7 @@ clog (complex double z) } #endif -#if !HAVE_CEXP +#ifndef HAVE_CEXP complex double cexp (complex double z); complex double cexp (complex double z) @@ -6016,7 +6016,7 @@ cexp (complex double z) } #endif -#if !HAVE_CARG +#ifndef HAVE_CARG double carg (complex double z); double carg (complex double z) @@ -6024,7 +6024,7 @@ carg (complex double z) return atan2 (cimag(z), creal(z)); } #endif -#endif HAVE_COMPLEX_DOUBLE +#endif /* HAVE_COMPLEX_DOUBLE */ /* In the following functions we dispatch to the real-arg funcs like log() |