From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 25 Apr 2017 20:55:39 +0000 (-0700)
Subject: Set sign bit in DOUBLE-NEGATIVE-INFINITY-IS-INFINITE test.
X-Git-Tag: mit-scheme-pucked-9.2.12~153^2~7
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=be42045a59975e0d3225cee6b4b0f82bee5cfcd9;p=mit-scheme.git

Set sign bit in DOUBLE-NEGATIVE-INFINITY-IS-INFINITE test.
---

diff --git a/tests/microcode/test-flonum-casts.scm b/tests/microcode/test-flonum-casts.scm
index 6b7ae2c33..749c69fed 100644
--- a/tests/microcode/test-flonum-casts.scm
+++ b/tests/microcode/test-flonum-casts.scm
@@ -115,7 +115,7 @@ USA.
   (lambda ()
     (assert-flo:infinite
      ((make-primitive-procedure 'CAST-INTEGER-TO-IEEE754-DOUBLE 1)
-      #b0111111111110000000000000000000000000000000000000000000000000000))))
+      #b1111111111110000000000000000000000000000000000000000000000000000))))
 
 (define-test 'DOUBLE-NEGATIVE-INFINITY-IS-NEGATIVE
   (lambda ()