]> git.eshelyaron.com Git - emacs.git/commitdiff
(byte-compile-const-symbol-p): Rename arg.
authorStefan Monnier <monnier@iro.umontreal.ca>
Wed, 16 Apr 2003 20:10:33 +0000 (20:10 +0000)
committerStefan Monnier <monnier@iro.umontreal.ca>
Wed, 16 Apr 2003 20:10:33 +0000 (20:10 +0000)
lisp/emacs-lisp/bytecomp.el

index bb14315accf798d9cbc8f5996e0cd15992c06bd3..3d1df929b5c0768aa7647918a0badc6e41a0b6b2 100644 (file)
@@ -10,7 +10,7 @@
 
 ;;; This version incorporates changes up to version 2.10 of the
 ;;; Zawinski-Furuseth compiler.
-(defconst byte-compile-version "$Revision: 2.123 $")
+(defconst byte-compile-version "$Revision: 2.124 $")
 
 ;; This file is part of GNU Emacs.
 
@@ -1315,13 +1315,13 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property."
   nil)
 
 \f
-(defsubst byte-compile-const-symbol-p (symbol &optional value)
+(defsubst byte-compile-const-symbol-p (symbol &optional any-value)
   "Non-nil if SYMBOL is constant.
-If VALUE is nil, only return non-nil if the value of the symbol is the
+If ANY-VALUE is nil, only return non-nil if the value of the symbol is the
 symbol itself."
   (or (memq symbol '(nil t))
       (keywordp symbol)
-      (if value (memq symbol byte-compile-const-variables))))
+      (if any-value (memq symbol byte-compile-const-variables))))
 
 (defmacro byte-compile-constp (form)
   "Return non-nil if FORM is a constant."