# HG changeset patch
# User aidan
# Date 1196177920 0
# Node ID 9eb558ffe8ff60ddfe17fe0413d58cb2fcae56bb
# Parent  89e64783d0682b00e03ec2612d4de6967eacef15
[xemacs-hg @ 2007-11-27 15:38:39 by aidan]
Remove a useless let binding in byte-optimize-featurep, eliminating a
byte-compile-time warning.

diff -r 89e64783d068 -r 9eb558ffe8ff lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Nov 27 13:51:10 2007 +0000
+++ b/lisp/ChangeLog	Tue Nov 27 15:38:40 2007 +0000
@@ -1,3 +1,9 @@
+2007-11-27  Aidan Kehoe  <kehoea@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@xemacs.org>
 
 	* about.el (about-hacker-contribution): Updated my bio.
diff -r 89e64783d068 -r 9eb558ffe8ff lisp/byte-optimize.el
--- a/lisp/byte-optimize.el	Tue Nov 27 13:51:10 2007 +0000
+++ b/lisp/byte-optimize.el	Tue Nov 27 15:38:40 2007 +0000
@@ -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