# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 803168314 0
# Node ID f4627b2f17dda29960a83b8495568e31f47c6ceb
# Parent  24328f2358a17ba4eea2e980f59243e4d78cf220
(Fprefix_numeric_value): Fix type check.

diff -r 24328f2358a1 -r f4627b2f17dd src/callint.c
--- a/src/callint.c	Wed Jun 14 22:11:21 1995 +0000
+++ b/src/callint.c	Wed Jun 14 22:18:34 1995 +0000
@@ -644,7 +644,7 @@
     XSETFASTINT (val, 1);
   else if (EQ (raw, Qminus))
     XSETINT (val, -1);
-  else if (CONSP (raw))
+  else if (CONSP (raw) && INTEGERP (XCONS (raw)->car))
     XSETINT (val, XINT (XCONS (raw)->car));
   else if (INTEGERP (raw))
     val = raw;