From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 7 Dec 2018 04:48:47 +0000 (+0000)
Subject: Make this unreachable case an error.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~38
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=95e5737a53f6480f569924774d8107b7f0757441;p=mit-scheme.git

Make this unreachable case an error.
---

diff --git a/src/runtime/dragon4.scm b/src/runtime/dragon4.scm
index eee2dcf62..e10ba1498 100644
--- a/src/runtime/dragon4.scm
+++ b/src/runtime/dragon4.scm
@@ -103,7 +103,7 @@ not much different to numbers within a few orders of magnitude of 1.
 	      ((flo:zero? x)
 	       (if (flo:sign-negative? x) "-0." "0."))
 	      (else
-	       "+nan.0")))))
+	       (error "Invalid floating-point value:" x))))))
 
 (define (flonum-printer:normal-output digits k radix)
   (let ((k+1 (+ k 1)))