# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 781280454 0
# Node ID 27aad4f820515378f0dd1ac44e37e8a973bcf0f7
# Parent  e5a850de0ba8e58a0fe1f421e6555dd318bad464
(Fprefix_numeric_value): No longer necessary to set type separately.

diff -r e5a850de0ba8 -r 27aad4f82051 src/callint.c
--- a/src/callint.c	Tue Oct 04 13:35:44 1994 +0000
+++ b/src/callint.c	Tue Oct 04 14:20:54 1994 +0000
@@ -599,10 +599,6 @@
 {
   Lisp_Object val;
   
-  /* Tag val as an integer, so the rest of the assignments
-     may use XSETINT.  */
-  XFASTINT (val) = 0;
-
   if (NILP (raw))
     XFASTINT (val) = 1;
   else if (EQ (raw, Qminus))