From 95e5737a53f6480f569924774d8107b7f0757441 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Fri, 7 Dec 2018 04:48:47 +0000 Subject: [PATCH] Make this unreachable case an error. --- src/runtime/dragon4.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 2.25.1