CVS update by aidan xemacs/lisp ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 07/11/27 16:38:42

  Modified:    xemacs/lisp ChangeLog byte-optimize.el
Log:
Remove a useless let binding in byte-optimize-featurep, eliminating a
byte-compile-time warning.

Revision  Changes    Path
1.862     +6 -0      XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.861
retrieving revision 1.862
diff -u -p -r1.861 -r1.862
--- ChangeLog	2007/11/23 17:27:08	1.861
+++ ChangeLog	2007/11/27 15:38:39	1.862
@@ -1,3 +1,9 @@
+2007-11-27  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* byte-optimize.el (byte-optimize-featurep):
+	Remove a useless let binding that was a hangover from an earlier
+	version of the code. Eliminates a byte-compile time warning. 
+
 2007-11-22  Vin Shelton  <acs at xemacs.org>
 
 	* about.el (about-hacker-contribution): Updated my bio.



1.14      +8 -9      XEmacs/xemacs/lisp/byte-optimize.el

Index: byte-optimize.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/byte-optimize.el,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -p -r1.13 -r1.14
--- byte-optimize.el	2007/10/15 10:55:49	1.13
+++ byte-optimize.el	2007/11/27 15:38:40	1.14
@@ -1174,15 +1174,14 @@
 
 (put 'featurep 'byte-optimizer 'byte-optimize-featurep)
 (defun byte-optimize-featurep (form)
-  (let ((to-check (cdr-safe form)))
-    (if (memq (car-safe
-	       (cdr-safe
-		(car-safe
-		 (cdr-safe 
-		  form))))
-	      byte-optimize-ever-present-features)
-	t
-      form)))
+  (if (memq (car-safe
+	     (cdr-safe
+	      (car-safe
+	       (cdr-safe 
+		form))))
+	    byte-optimize-ever-present-features)
+      t
+    form))
 
 
 ;;; enumerating those functions which need not be called if the returned