Update domain name to kpe.io

[cl-photo.git] / convert.lisp

diff --git a/convert.lisp b/convert.lisp
old mode 100755 (executable)
new mode 100644 (file)
index b73595b..bb50942
--- a/convert.lisp
+++ b/convert.lisp
@@ -55,8 +55,8 @@
   (ecase units
     (:mm d)
     (:inches (inches->mm d))
-    (:feet (* 12 (inches->mm d)))
-    (:yards (* 36 (inches->mm d)))
+    (:feet (inches->mm (* d 12)))
+    (:yards (inches->mm (* d 36)))
     (:meters (* 1000 d))))
 
 (defun mm->length (d units)