changeset 3346:0047b8501fce

(mod): Use cl-floor. (rem): Use cl-truncate.

--- a/lisp/=cl.el	Mon May 31 06:07:08 1993 +0000
+++ b/lisp/=cl.el	Mon May 31 07:19:04 1993 +0000
@@ -1806,18 +1806,18 @@
 
 (defun mod (number divisor)
   "Return remainder of X by Y (rounding quotient toward minus infinity).
-That is, the remainder goes with the quotient produced by `floor'.
+That is, the remainder goes with the quotient produced by `cl-floor'.
 Emacs Lisp hint:
 If you know that both arguments are positive, use `%' instead for speed."
-  (floor number divisor)
+  (cl-floor number divisor)
   (cadr *mvalues-values*))
 
 (defun rem (number divisor)
   "Return remainder of X by Y (rounding quotient toward zero).
-That is, the remainder goes with the quotient produced by `truncate'.
+That is, the remainder goes with the quotient produced by `cl-truncate'.
 Emacs Lisp hint:
 If you know that both arguments are positive, use `%' instead for speed."
-  (truncate number divisor)
+  (cl-truncate number divisor)
   (cadr *mvalues-values*))
 
 ;;; internal utilities