summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/byte-run.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/emacs-lisp/byte-run.el')
-rw-r--r--lisp/emacs-lisp/byte-run.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index d7a2d8cecaf..384e8cba88f 100644
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -80,7 +80,8 @@ This is done by destructively modifying ARG. Return ARG."
((consp elt)
(byte-run--strip-list elt))
((or (vectorp elt) (recordp elt))
- (byte-run--strip-vector/record elt))))))
+ (byte-run--strip-vector/record elt)))
+ (setq i (1+ i)))))
arg))
(defalias 'byte-run-strip-symbol-positions