Finish making previous change.

diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el
index a1b2582b840d792070b0cad63b625389981d7550..84328233860831fc70b31e829c4150872703e2d3 100644 (file)
--- a/lisp/calc/calc-arith.el
+++ b/lisp/calc/calc-arith.el
@@ -2279,7 +2279,7 @@
                             (math-add (math-floor (nth 3 a)) -1)
                           (math-floor (nth 3 a)))))
        ((Math-vectorp a)
-        (math-map-vec (function (lambda (x) (math-floor x prec))) a))
+        (math-map-vec (function (lambda (x) (math-floor x math-floor-prec))) a))
        ((math-infinitep a)
         (if (or (math-posp a) (math-negp a))
             a