Commit 0317ca78 authored by Jay Belanger's avatar Jay Belanger
Browse files

(math-simplify-units-quotient): Replace missing exponent.

parent eb3d6c67
......@@ -1222,7 +1222,9 @@ If EXPR is nil, return nil."
(and un ud
(if (and (equal (nth 4 un) (nth 4 ud))
(eq pow1 pow2))
(math-to-standard-units (list '/ n d) nil)
(if (eq pow1 1)
(math-to-standard-units (list '/ n d) nil)
(list '^ (math-to-standard-units (list '/ n d) nil) pow1))
(let (ud1)
(setq un (nth 4 un)
ud (nth 4 ud))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment