summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorDaniel Santos <dacs.git@brilhante.top>2023-01-10 21:41:04 +0000
committerDaniel Santos <dacs.git@brilhante.top>2023-01-10 21:41:04 +0000
commit2f950d3af7f3e8e6ad535d4ab99845ff168732ac (patch)
treec5080dbf84ff1fb3656b1f38388c3db32a9cacc7
parenta0025c8f5fb8a1ca5486bf6e5c5f7b8270219bfb (diff)
downloadcl-math-2f950d3af7f3e8e6ad535d4ab99845ff168732ac.tar.gz
may-reverse bug squash
-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"