# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1152288978 0
# Node ID 1404a22bd1f5d6de7b28ae47085f3394302c4f6f
# Parent  9c4db0e8490f73271e52fa2b0a5f6d1fa36b0f55
(readevalloop): Remove unused var `bpos'.  Yet another int/Lisp_Object mixup.

diff -r 9c4db0e8490f -r 1404a22bd1f5 src/ChangeLog
--- a/src/ChangeLog	Fri Jul 07 16:12:51 2006 +0000
+++ b/src/ChangeLog	Fri Jul 07 16:16:18 2006 +0000
@@ -2,6 +2,8 @@
 
 	* lread.c (read_filtered_event): Remove `register' qualifier because it
 	causes compilation problem with gcc-4.0.2-20051125 on amd64.
+	(readevalloop): Remove unused var `bpos'.
+	Yet another int/Lisp_Object mixup (YAILOM).
 
 2006-07-07  Eli Zaretskii  <eliz@gnu.org>
 
diff -r 9c4db0e8490f -r 1404a22bd1f5 src/lread.c
--- a/src/lread.c	Fri Jul 07 16:12:51 2006 +0000
+++ b/src/lread.c	Fri Jul 07 16:16:18 2006 +0000
@@ -1369,7 +1369,6 @@
   int count = SPECPDL_INDEX ();
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
   struct buffer *b = 0;
-  int bpos;
   int continue_reading_p;
   /* Nonzero if reading an entire buffer.  */
   int whole_buffer = 0;
@@ -1402,8 +1401,8 @@
 
   /* Try to ensure sourcename is a truename, except whilst preloading. */
   if (NILP (Vpurify_flag)
-      && !NILP (sourcename) && Ffile_name_absolute_p (sourcename)
-      && (!NILP (Ffboundp (Qfile_truename))))
+      && !NILP (sourcename) && !NILP (Ffile_name_absolute_p (sourcename))
+      && !NILP (Ffboundp (Qfile_truename)))
     sourcename = call1 (Qfile_truename, sourcename) ;
 
   LOADHIST_ATTACH (sourcename);