# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 744437828 0
# Node ID ba273b48143bd826aa904d1402e52649d6171c43
# Parent  ff1f9d7addd9e620ba04fc170c3951db3b2f25e6
(Frem): Don't accept floats, just ints and markers.

diff -r ff1f9d7addd9 -r ba273b48143b src/data.c
--- a/src/data.c	Wed Aug 04 03:41:03 1993 +0000
+++ b/src/data.c	Wed Aug 04 04:17:08 1993 +0000
@@ -1736,39 +1736,14 @@
 
 DEFUN ("%", Frem, Srem, 2, 2, 0,
   "Returns remainder of first arg divided by second.\n\
-Both must be numbers or markers.")
+Both must be integers or markers.")
   (num1, num2)
      register Lisp_Object num1, num2;
 {
   Lisp_Object val;
 
-#ifdef LISP_FLOAT_TYPE
-  CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (num1, 0);
-  CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (num2, 0);
-
-  if (XTYPE (num1) == Lisp_Float || XTYPE (num2) == Lisp_Float)
-    {
-      double f1, f2;
-
-      f1 = XTYPE (num1) == Lisp_Float ? XFLOAT (num1)->data : XINT (num1);
-      f2 = XTYPE (num2) == Lisp_Float ? XFLOAT (num2)->data : XINT (num2);
-      if (f2 == 0)
-	Fsignal (Qarith_error, Qnil);
-
-#if defined (USG) || defined (sun) || defined (ultrix) || defined (hpux)
-      f1 = fmod (f1, f2);
-#else
-      f1 = drem (f1, f2);
-#endif
-      /* If the "remainder" comes out with the wrong sign, fix it.  */
-      if ((f1 < 0) != (f2 < 0))
-	f1 += f2;
-      return (make_float (f1));
-    }
-#else /* not LISP_FLOAT_TYPE */
   CHECK_NUMBER_COERCE_MARKER (num1, 0);
   CHECK_NUMBER_COERCE_MARKER (num2, 1);
-#endif /* not LISP_FLOAT_TYPE */
 
   if (XFASTINT (num2) == 0)
     Fsignal (Qarith_error, Qnil);