From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 6 Nov 2018 05:53:04 +0000 (-0800)
Subject: Eliminate unused variable warnings.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~118
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ce0c2b48389c2cbd90a05e509572c5902a8ffbc1;p=mit-scheme.git

Eliminate unused variable warnings.
---

diff --git a/src/runtime/ieee754.scm b/src/runtime/ieee754.scm
index 0be451060..3a77ba11a 100644
--- a/src/runtime/ieee754.scm
+++ b/src/runtime/ieee754.scm
@@ -165,6 +165,7 @@ USA.
      (flo:+inf.0)))
 
 (define (compose-ieee754-nan sign quiet payload)
+  (declare (ignore sign quiet payload))
   (flo:nan.0))
 
 (define (ieee754-binary-parameters exponent-bits precision)