1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
guile/module/rnrs/arithmetic
Mark H Weaver ad922d065c Flonum operations always return flonums.
Fixes <http://bugs.gnu.org/14871>.
Reported by Göran Weinholt <goran@weinholt.se>.

* module/rnrs/arithmetic/flonums.scm (ensure-flonum): New procedure.
  (fllog): Rewrite using case-lambda.  Handle negative zeroes.  Use
  'ensure-flonum'.
  (flatan): Rewrite using case-lambda.
  (flasin, flacos, flsqrt, flexpt): Use 'ensure-flonum'.

* test-suite/tests/r6rs-arithmetic-flonums.test
  (fllog, flasin, flacos, flsqrt, flexpt): Add tests.
2013-07-16 04:43:07 -04:00
..
bitwise.scm Fix 'bitwise-bit-count' for negative arguments. 2013-07-14 14:08:33 -04:00
fixnums.scm (rnrs arithmetic fixnums) fixnum? export a procedure again 2011-04-13 12:50:41 +02:00
flonums.scm Flonum operations always return flonums. 2013-07-16 04:43:07 -04:00