mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-20 02:30:23 +02:00
Code Activity

Changes from arch/CVS synchronization

Browse source
This commit is contained in:
Ludovic Courtès 2007-04-17 14:12:17 +00:00
parent 1d8ce4c04d
commit 1911e3da17
4 changed files with 16 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2007-04-17 Ludovic Courtès <ludovic.courtes@laas.fr>
* numbers.c: Commented out trailing `HAVE_COMPLEX_DOUBLE' after
`#endif'. Use `#ifndef HAVE_XXX' rather than `#if !HAVE_XXX'.
2007-04-09 Han-Wen Nienhuys <hanwen@lilypond.org>
* numbers.c (carg): provide carg, cexp, clog in case they are

10
libguile/numbers.c
View file

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