297 |
(units (calc-var-value 'var-Units)) |
(units (calc-var-value 'var-Units)) |
298 |
(expr (calc-top-n 1))) |
(expr (calc-top-n 1))) |
299 |
(unless (and (>= num 0) (<= num 9)) |
(unless (and (>= num 0) (<= num 9)) |
300 |
(errunless "Bad unit number")) |
(error "Bad unit number")) |
301 |
(unless (math-vectorp units) |
(unless (math-vectorp units) |
302 |
(errunless "No \"quick units\" are defined")) |
(error "No \"quick units\" are defined")) |
303 |
(unless (< pos (length units)) |
(unless (< pos (length units)) |
304 |
(errunless "Unit number %d not defined" pos)) |
(error "Unit number %d not defined" pos)) |
305 |
(if (math-units-in-expr-p expr nil) |
(if (math-units-in-expr-p expr nil) |
306 |
(calc-enter-result 1 (format "cun%d" num) |
(calc-enter-result 1 (format "cun%d" num) |
307 |
(math-convert-units expr (nth pos units))) |
(math-convert-units expr (nth pos units))) |