Mercurial > emacs
diff lisp/calc/calc-units.el @ 85603:819d86e241bc
(math-simplify-units-quotient): Replace missing exponent.
author | Jay Belanger <jay.p.belanger@gmail.com> |
---|---|
date | Wed, 24 Oct 2007 01:51:40 +0000 |
parents | 9f0f3499c174 |
children | a0abd1e93db8 4bc33ffdda1a |
line wrap: on
line diff
--- a/lisp/calc/calc-units.el Wed Oct 24 01:51:03 2007 +0000 +++ b/lisp/calc/calc-units.el Wed Oct 24 01:51:40 2007 +0000 @@ -1222,7 +1222,9 @@ (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))