Mercurial > hg > xemacs-beta

diff lisp/byte-optimize.el @ 4288:9eb558ffe8ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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.
author aidan
date Tue, 27 Nov 2007 15:38:40 +0000
parents ce594b233b20
children 7c7262c47538
line wrap: on
line diff
--- 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