Commit 582a857c authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(byte-compile-const-symbol-p): Rename arg.

parent 02ad7cbf
...@@ -10,7 +10,7 @@ ...@@ -10,7 +10,7 @@
;;; This version incorporates changes up to version 2.10 of the ;;; This version incorporates changes up to version 2.10 of the
;;; Zawinski-Furuseth compiler. ;;; Zawinski-Furuseth compiler.
(defconst byte-compile-version "$Revision: 2.123 $") (defconst byte-compile-version "$Revision: 2.124 $")
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
...@@ -1315,13 +1315,13 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property." ...@@ -1315,13 +1315,13 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property."
nil) 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. "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." symbol itself."
(or (memq symbol '(nil t)) (or (memq symbol '(nil t))
(keywordp symbol) (keywordp symbol)
(if value (memq symbol byte-compile-const-variables)))) (if any-value (memq symbol byte-compile-const-variables))))
(defmacro byte-compile-constp (form) (defmacro byte-compile-constp (form)
"Return non-nil if FORM is a constant." "Return non-nil if FORM is a constant."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment