# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738832744 0
# Node ID 0047b8501fcec63bde197ba5a0de6b5f9dac2e54
# Parent  38168270a9ca2b0b1e361e481fd8853621e9125d
(mod): Use cl-floor.
(rem): Use cl-truncate.

diff -r 38168270a9ca -r 0047b8501fce lisp/=cl.el
--- 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