Use float-triple

s-expressionists · Aug 6, 2024 · f3ebe96 · f3ebe96
1 parent f8cdad8
commit f3ebe96
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/code/floating-point-printers.lisp b/code/floating-point-printers.lisp
@@ -34,12 +34,12 @@
                                  (coerce value 'single-float))))
           (multiple-value-call func
             client coerced-value
-            (quaviver:float-integer client 10 coerced-value))))))
+            (quaviver:float-triple client 10 coerced-value))))))
 
 (defun round-away-from-zero (x n)
   (multiple-value-bind (q r)
       (truncate x n)
-    (if (>= (/ r n) 1/2)
+    (if (>= (* 2 r) n)
         (1+ q)
         q)))