(Fprefix_numeric_value): Fix type check.

3399a477 · Karl Heuer · d9b641bb · 3399a477
Commit 3399a477 authored Jun 14, 1995 by Karl Heuer
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/callint.c src/callint.c +1 -1

No files found.
--- a/src/callint.c
+++ b/src/callint.c
@@ -644,7 +644,7 @@ Its numeric meaning is what you would get from `(interactive \"p\")'.")
    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;