diff src/fns.c @ 5002:0cd784a6ec44

fix some compile bugs of Aidan's -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2010-02-07 Ben Wing <ben@xemacs.org> * fns.c: Qlist, Qstring mistakenly declared twice. * fns.c (mapcarX): (void) cast needed to avoid compile problem.
author Ben Wing <ben@xemacs.org>
date Sun, 07 Feb 2010 07:10:01 -0600
parents 714d854d00e9
children 1b96882bdf37 6f2158fa75ed
line wrap: on
line diff
--- a/src/fns.c	Sun Feb 07 05:23:07 2010 -0600
+++ b/src/fns.c	Sun Feb 07 07:10:01 2010 -0600
@@ -56,7 +56,7 @@
 
 Lisp_Object Qstring_lessp;
 Lisp_Object Qidentity;
-Lisp_Object Qvector, Qarray, Qstring, Qlist, Qbit_vector;
+Lisp_Object Qvector, Qarray, Qbit_vector;
 
 Lisp_Object Qbase64_conversion_error;
 
@@ -3440,7 +3440,7 @@
 		     i < bit_vector_length (XBIT_VECTOR (lisp_vals))) ?
 		      set_bit_vector_bit (XBIT_VECTOR (lisp_vals), i,
 					  XINT (called)) :
-		      Faset (lisp_vals, make_int (i), called);
+		      (void) Faset (lisp_vals, make_int (i), called);
 		    break;
 		  }
 		bad_show_or_every_flag: