From: Dmitry Gutov <dgutov@yandex.ru>
Date: Wed, 9 Sep 2015 18:51:48 +0000 (+0300)
Subject: Undo some breakage
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/cde5d9a13dedb3c6bcc217893bd6d049f5db638b?hp=5ffca32900b224805cb6e679798d53d999b1dcc0

Undo some breakage
---

diff --git a/packages/js2-mode/js2-mode.el b/packages/js2-mode/js2-mode.el
index 97f3269e9..926003d5a 100644
--- a/packages/js2-mode/js2-mode.el
+++ b/packages/js2-mode/js2-mode.el
@@ -10391,7 +10391,7 @@ EXPR is the first expression after the opening left-bracket.
 POS is the beginning of the LB token preceding EXPR.
 We should have just parsed the 'for' keyword before calling this function."
   (let ((current-scope js2-current-scope)
-        loops filter result)
+        loops first filter result)
     (unwind-protect
         (progn
           (while (js2-match-token js2-FOR)
@@ -10400,7 +10400,7 @@ We should have just parsed the 'for' keyword before calling this function."
               (push loop loops)
               (js2-parse-comp-loop loop)))
           ;; First loop takes expr scope's parent.
-          (setf (js2-scope-parent-scope (car (last loops)))
+          (setf (js2-scope-parent-scope (setq first (car (last loops))))
                 (js2-scope-parent-scope current-scope))
           ;; Set expr scope's parent to the last loop.
           (setf (js2-scope-parent-scope current-scope) (car loops))