# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 705798122 0
# Node ID 7286b5bbeee441a53971e5eed3b2bb27fb6588a6
# Parent  9759addc5671630cc737dff204ba23da3298ffc2
*** empty log message ***

diff -r 9759addc5671 -r 7286b5bbeee4 src/callint.c
--- a/src/callint.c	Tue May 12 05:26:53 1992 +0000
+++ b/src/callint.c	Wed May 13 23:02:02 1992 +0000
@@ -525,7 +525,7 @@
 
   if (NILP (raw))
     XFASTINT (val) = 1;
-  else if (XTYPE (raw) == Lisp_Symbol)
+  else if (EQ (val, Qminus))
     XSETINT (val, -1);
   else if (CONSP (raw))
     XSETINT (val, XINT (XCONS (raw)->car));