diff options
| author | Matt Wette <matt.wette@gmail.com> | 2017-02-21 22:07:39 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2017-02-21 22:09:01 +0100 |
| commit | c4b0491e91a7c4d4a2b89511b37eae61e79de47a (patch) | |
| tree | 51854742df2b87610d9745847fffdcf571258381 /libguile | |
| parent | 36023a0d2e14f02f7370c899b52e9803bc8c0078 (diff) | |
Fix make-polar signedness of zeros on macOS
* configure.ac: Check for __sincos.
* libguile/numbers.c (scm_c_make_polar): Fall back to __sincos if
possible. Fixes zero signedness of make-polar on macOS.
Diffstat (limited to 'libguile')
| -rw-r--r-- | libguile/numbers.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c index 07170d922..b926d2472 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -9109,6 +9109,8 @@ scm_c_make_polar (double mag, double ang) details. */ #if (defined HAVE_SINCOS) && (defined __GLIBC__) && (defined _GNU_SOURCE) sincos (ang, &s, &c); +#elif (defined HAVE___SINCOS) + __sincos (ang, &s, &c); #else s = sin (ang); c = cos (ang); |