From 31d807243deb32e28399960fd7c3aeed39138b27 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 1 May 2018 23:42:45 -0700
Subject: [PATCH] Fix typo in previous edit.

---
 src/runtime/dragon4.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)
-- 
2.25.1