[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-27-g284859c

[Mark H Weaver]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=284859c2f9b7072dd0bc1215d43663bb87858025

The branch, stable-2.0 has been updated
       via  284859c2f9b7072dd0bc1215d43663bb87858025 (commit)
      from  95ed221785f5b1203e998823455f682c1830498b (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 284859c2f9b7072dd0bc1215d43663bb87858025
Author: Mark H Weaver <address@hidden>
Date:   Tue Jul 16 01:46:05 2013 -0400

    numbers.test: Fix inum/flonum comparison test on 32-bit machines.
    
    * test-suite/tests/numbers.test (<): Fix inum/flonum test.

-----------------------------------------------------------------------

Summary of changes:
 test-suite/tests/numbers.test |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test
index 5e95ab9..ab0880d 100644
--- a/test-suite/tests/numbers.test
+++ b/test-suite/tests/numbers.test
@@ -2496,8 +2496,8 @@
     ;; 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
     ;; significant change in its value, thus corrupting the comparison.
-    (pass-if (< most-positive-fixnum (exact->inexact most-positive-fixnum)))
-    (pass-if (< (exact->inexact (- most-positive-fixnum)) (- 
most-positive-fixnum))))
+    (pass-if (< most-positive-fixnum (exact->inexact (+ 1 
most-positive-fixnum))))
+    (pass-if (< (exact->inexact (- (+ 1 most-positive-fixnum))) (- 
most-positive-fixnum))))
 
   (with-test-prefix "flonum/frac"
     (pass-if (< 0.75 4/3))


hooks/post-receive
-- 
GNU Guile