fix varset and add a test

2019-09-08 16:31:53 +02:00 · 2019-09-08 16:31:53 +02:00 · fca675dae3
commit fca675dae3
parent 59a428ed6c
3 changed files with 10 additions and 4 deletions
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@ -647,7 +647,7 @@ the annotation emission."
      (byte-varset
       (comp-emit (comp-call 'set_internal
                             (make-comp-mvar :constant arg)
-                             (comp-slot))))
+                             (comp-slot-next))))
      (byte-varbind ;; Verify
       (comp-emit (comp-call 'specbind
                             (make-comp-mvar :constant arg)