From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 2 May 2018 06:42:45 +0000 (-0700)
Subject: Fix typo in previous edit.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~82
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=31d807243deb32e28399960fd7c3aeed39138b27;p=mit-scheme.git

Fix typo in previous edit.
---

diff --git a/src/runtime/dragon4.scm b/src/runtime/dragon4.scm
index 14e13a5db..37dca0f02 100644
--- a/src/runtime/dragon4.scm
+++ b/src/runtime/dragon4.scm
@@ -89,12 +89,12 @@ not much different to numbers within a few orders of magnitude of 1.
 	(cond ((flo:nan? x)
 	       (string-copy "+nan.0"))
 	      ((flo:positive? x)
-	       (if (flo:inf? x)
+	       (if (flo:infinite? x)
 		   (string-copy "+inf.0")
 		   (x>0 x)))
 	      ((flo:negative? x)
 	       (let ((x (flo:negate x)))
-		 (if (flo:inf? x)
+		 (if (flo:infinite? x)
 		     (string-copy "-inf.0")
 		     (string-append "-" (x>0 x)))))
 	      ((flo:zero? x)