rationalize factor specfications before converting them into doubles

Ramarren · Sep 20, 2010 · 6459fb6 · 6459fb6
1 parent bfb4f65
commit 6459fb6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/unit-class.lisp b/unit-class.lisp
@@ -28,7 +28,7 @@
 (defmethod initialize-instance :after ((unit unit) &rest initargs)
   (declare (ignore initargs))
   (when (typep (factor-of unit) 'single-float)
-   (setf (factor-of unit) (float (factor-of unit) 0d0))))
+   (setf (factor-of unit) (float (rationalize (factor-of unit)) 0d0))))
 
 (defmethod print-object ((unit unit) stream)
   (print-unreadable-object (unit stream :type t :identity nil)