Avoid fixnum round trip in prefix-numeric-value

* src/callint.c (Fprefix_numeric_value): Simplify.
2019-10-20 17:40:43 -07:00
parent 30deac84c4
commit 9e15df208c
1 changed files with 1 additions and 1 deletions
--- a/src/callint.c
+++ b/src/callint.c
@@ -798,7 +798,7 @@ Its numeric meaning is what you would get from `(interactive "p")'.  */)
  else if (EQ (raw, Qminus))
    XSETINT (val, -1);
  else if (CONSP (raw) && FIXNUMP (XCAR (raw)))
-    XSETINT (val, XFIXNUM (XCAR (raw)));
+    val = XCAR (raw);
  else if (FIXNUMP (raw))
    val = raw;
  else