# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1101364105 0
# Node ID b1042b68790c9b096258f50431d31db2a9ed929b
# Parent  1f786433175cfb9811f7af332083a332144b7f52
Finish making previous change.

diff -r 1f786433175c -r b1042b68790c lisp/calc/calc-arith.el
--- a/lisp/calc/calc-arith.el	Thu Nov 25 06:17:40 2004 +0000
+++ b/lisp/calc/calc-arith.el	Thu Nov 25 06:28:25 2004 +0000
@@ -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