changeset 644:7286b5bbeee4

*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Wed, 13 May 1992 23:02:02 +0000
parents 9759addc5671
children 57295fc40ac3
files src/callint.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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));