diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-02-16 18:14:35 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-02-16 18:34:22 +0100 |
| commit | 81c34a35aab53978bc2f3608dff3751030d0e914 (patch) | |
| tree | 1671812f42d2042bb2c031363b774c535272acd9 /lisp/emacs-lisp | |
| parent | 8c108ce607693f9fb5bfa6ca30da66faad777512 (diff) | |
| download | emacs-81c34a35aab53978bc2f3608dff3751030d0e914.tar.gz emacs-81c34a35aab53978bc2f3608dff3751030d0e914.tar.bz2 emacs-81c34a35aab53978bc2f3608dff3751030d0e914.zip | |
Update copyright years plus two style nits
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 67fc8f39f8c..80a542257fb 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -2,7 +2,7 @@ ;; Author: Andrea Corallo <akrl@sdf.com> -;; Copyright (C) 2019 Free Software Foundation, Inc. +;; Copyright (C) 2019-2020 Free Software Foundation, Inc. ;; Keywords: lisp ;; Package: emacs @@ -1587,8 +1587,8 @@ PRE-LAMBDA and POST-LAMBDA are called in pre or post-order if non nil." ;; Note: this last is just a property of the code generated ;; by the byte-compiler. (cl-assert (= (comp-mvar-array-idx arg) 0)) - (setf (comp-mvar-slot arg) i) - (setf (comp-mvar-array-idx arg) arr-idx)))) + (setf (comp-mvar-slot arg) i + (comp-mvar-array-idx arg) arr-idx)))) (defun comp-propagate-prologue (backward) "Prologue for the propagate pass. @@ -1682,8 +1682,8 @@ Here goes everything that can be done not iteratively (read once). (cl-loop with slot = (comp-mvar-slot lval) for arg in rest do - (setf (comp-mvar-array-idx arg) arr-idx) - (setf (comp-mvar-slot arg) slot))))))) + (setf (comp-mvar-array-idx arg) arr-idx + (comp-mvar-slot arg) slot))))))) (defun comp-propagate* () "Propagate for set* and phi operands. |