Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 85602:9a8400cb685c | 85603:819d86e241bc |
|---|---|
| 1220 (let ((un (math-check-unit-name n)) | 1220 (let ((un (math-check-unit-name n)) |
| 1221 (ud (math-check-unit-name d))) | 1221 (ud (math-check-unit-name d))) |
| 1222 (and un ud | 1222 (and un ud |
| 1223 (if (and (equal (nth 4 un) (nth 4 ud)) | 1223 (if (and (equal (nth 4 un) (nth 4 ud)) |
| 1224 (eq pow1 pow2)) | 1224 (eq pow1 pow2)) |
| 1225 (math-to-standard-units (list '/ n d) nil) | 1225 (if (eq pow1 1) |
| 1226 (math-to-standard-units (list '/ n d) nil) | |
| 1227 (list '^ (math-to-standard-units (list '/ n d) nil) pow1)) | |
| 1226 (let (ud1) | 1228 (let (ud1) |
| 1227 (setq un (nth 4 un) | 1229 (setq un (nth 4 un) |
| 1228 ud (nth 4 ud)) | 1230 ud (nth 4 ud)) |
| 1229 (while un | 1231 (while un |
| 1230 (setq ud1 ud) | 1232 (setq ud1 ud) |