/[emacs]/emacs/lisp/calc/calc-arith.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-arith.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by jpb, Wed Nov 24 21:45:04 2004 UTC revision 1.8 by jpb, Thu Nov 25 06:28:25 2004 UTC
# Line 2279  Line 2279 
2279                               (math-add (math-floor (nth 3 a)) -1)                               (math-add (math-floor (nth 3 a)) -1)
2280                             (math-floor (nth 3 a)))))                             (math-floor (nth 3 a)))))
2281          ((Math-vectorp a)          ((Math-vectorp a)
2282           (math-map-vec (function (lambda (x) (math-floor x prec))) a))           (math-map-vec (function (lambda (x) (math-floor x math-floor-prec))) a))
2283          ((math-infinitep a)          ((math-infinitep a)
2284           (if (or (math-posp a) (math-negp a))           (if (or (math-posp a) (math-negp a))
2285               a               a

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26