]> git.eshelyaron.com Git - emacs.git/commitdiff
ebnf2ps: eliminate double nreverse
authorMattias Engdegård <mattiase@acm.org>
Mon, 10 Apr 2023 13:07:24 +0000 (15:07 +0200)
committerMattias Engdegård <mattiase@acm.org>
Mon, 10 Apr 2023 13:12:01 +0000 (15:12 +0200)
* lisp/progmodes/ebnf-otz.el (ebnf-split-suffix): Simplify code that
relied on a rather inobvious in-place reversal of a list twice for
correctness, silencing a byte-compiler warning.

lisp/progmodes/ebnf-otz.el

index 9ac37b676f9ae906b6d1c9a9ba0bb540381d8db5..4155dc0d2cdca6e72272382e81d3bba1ef65b900 100644 (file)
     ;; determine suffix length
     (while (and (> isuf 0) (setq tail (cdr tail)))
       (let* ((cur head)
-            (tlis (nreverse
+            (tlis (reverse
                    (if (eq (ebnf-node-kind (car tail)) 'ebnf-generate-sequence)
                        (ebnf-node-list (car tail))
                      (list (car tail)))))
          (setq cur  (cdr cur)
                this (cdr this)
                i    (1+ i)))
-       (nreverse tlis)
        (setq isuf (min isuf i))))
     (setq head (nreverse head))
     (if (or (zerop isuf) (> isuf len))