Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |