Fix typo in previous edit.

diff --git a/src/runtime/dragon4.scm b/src/runtime/dragon4.scm
index 14e13a5dbb7e4fede08f33e888d3c9ecd382d8b3..37dca0f02ac2105b0e0fca2c045598e736dd2dff 100644 (file)
--- 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)