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

Merge remote-tracking branch 'origin/stable-2.0'

Browse source
This commit is contained in:
Mark H Weaver 2013-07-16 01:48:19 -04:00
commit 3c2fe0ac03
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/numbers.test
View file

@ -2496,8 +2496,8 @@
;; Prior to guile 2.0.10, we would unconditionally convert the inum ;; Prior to guile 2.0.10, we would unconditionally convert the inum
;; to a double, which on a 64-bit system could result in a ;; to a double, which on a 64-bit system could result in a
;; significant change in its value, thus corrupting the comparison. ;; significant change in its value, thus corrupting the comparison.
(pass-if (< most-positive-fixnum (exact->inexact most-positive-fixnum))) (pass-if (< most-positive-fixnum (exact->inexact (+ 1 most-positive-fixnum))))
(pass-if (< (exact->inexact (- most-positive-fixnum)) (- most-positive-fixnum)))) (pass-if (< (exact->inexact (- (+ 1 most-positive-fixnum))) (- most-positive-fixnum))))
(with-test-prefix "flonum/frac" (with-test-prefix "flonum/frac"
(pass-if (< 0.75 4/3)) (pass-if (< 0.75 4/3))