summary refs log tree commit diff stats
path: root/cl-math.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'cl-math.lisp')
-rw-r--r--cl-math.lisp4
1 files changed, 2 insertions, 2 deletions
diff --git a/cl-math.lisp b/cl-math.lisp
index 481eeed..77337d2 100644
--- a/cl-math.lisp
+++ b/cl-math.lisp
@@ -12,8 +12,8 @@
 (defun may-reverse (number)
   "If units is placed on the end, reverse; else keep it."
   (if *number-units-beginning*
-	(reverse number)
-	number))
+	number
+	(reverse number)))
 
 (defun explode (number)
   "Given a number (which can have letters), it returns a list of the number"