# HG changeset patch # User Stefan Monnier # Date 1050523833 0 # Node ID ebecc2b80af6163a5497b9d845752e7f75102f20 # Parent 9582ab8af8fe615140d8ea51c4170ddc81a0a448 (byte-compile-const-symbol-p): Rename arg. diff -r 9582ab8af8fe -r ebecc2b80af6 lisp/emacs-lisp/bytecomp.el --- a/lisp/emacs-lisp/bytecomp.el Wed Apr 16 16:03:46 2003 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Wed Apr 16 20:10:33 2003 +0000 @@ -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 @@ nil) -(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."