Finish making previous change.

This commit is contained in:
Jay Belanger 2004-11-25 06:28:25 +00:00
parent b67b1f0b32
commit 95d91710e9

View file

@ -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