Add usual-integrations and note some ignored variables in ieee754.scm.

diff --git a/src/runtime/ieee754.scm b/src/runtime/ieee754.scm
index 50d83f2a1898dd7e45abf4aa8c15741b65014dd9..2f6741109c52c0ec32e8cb6c3624721d5b309fdc 100644 (file)
--- a/src/runtime/ieee754.scm
+++ b/src/runtime/ieee754.scm
@@ -22,6 +22,8 @@ USA.
 |#
 
 ;;;; IEEE 754 Format
+
+(declare (usual-integrations))
 \f
 (define (decompose-ieee754-double x)
   (decompose-ieee754-binary x 11 53))
@@ -165,6 +167,7 @@ USA.
 (define (ieee754-binary-hex-string x exponent-bits precision)
   (receive (base emin emax bias exp-subnormal exp-inf/nan)
            (ieee754-binary-parameters exponent-bits precision)
+    bias exp-subnormal exp-inf/nan
     (define (symbolic sign name extra)
       (assert (or (= sign 0) (= sign 1)))
       (assert (<= 0 extra))