mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

* Two minors in comp.el

Browse Source 
* lisp/emacs-lisp/comp.el (comp-known-func-cstr-h)
	(comp-ret-type-spec): Style.
This commit is contained in:
Andrea Corallo 2020-12-16 18:37:39 +01:00
parent 7074988d13
commit d072ee9d34
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/emacs-lisp/comp.el
View File

@ -275,7 +275,7 @@ Useful to hook into pass checkers.")
for (f type-spec) in comp-known-type-specifiers for (f type-spec) in comp-known-type-specifiers
for cstr = (comp-type-spec-to-cstr type-spec) for cstr = (comp-type-spec-to-cstr type-spec)
do (puthash f cstr h) do (puthash f cstr h)
finally (cl-return h)) finally return h)
"Hash table function -> `comp-constraint'") "Hash table function -> `comp-constraint'")
(defconst comp-symbol-values-optimizable '(most-positive-fixnum (defconst comp-symbol-values-optimizable '(most-positive-fixnum
@ -2761,7 +2761,7 @@ Set it into the `ret-type-specifier' slot."
do (pcase insn do (pcase insn
(`(return ,mvar) (`(return ,mvar)
(push mvar res)))) (push mvar res))))
finally (cl-return res))))) finally return res))))
(setf (comp-func-ret-type-specifier func) (setf (comp-func-ret-type-specifier func)
(comp-cstr-to-type-spec res-mvar)))) (comp-cstr-to-type-spec res-mvar))))