]> code.delx.au - gnu-emacs-elpa/commitdiff
Fix parsing of let expressions
authorkaki <gengar@users.noreply.github.com>
Mon, 8 Sep 2014 14:27:45 +0000 (23:27 +0900)
committerkaki <gengar@users.noreply.github.com>
Mon, 8 Sep 2014 14:27:45 +0000 (23:27 +0900)
js2-mode.el
tests/parser.el

index 62a9da4f63b9b6384ab6fc41586d951f97266bac..ec261e77b10c8d884307f8302992a26ec21efa2b 100644 (file)
@@ -3302,7 +3302,9 @@ Note that a let declaration such as let x=6, y=7 is a `js2-var-decl-node'."
 
 (defun js2-print-let-node (n i)
   (insert (js2-make-pad i) "let (")
-  (js2-print-ast (js2-let-node-vars n) 0)
+  (let ((p (point)))
+    (js2-print-ast (js2-let-node-vars n) 0)
+    (delete-region p (+ p 4)))
   (insert ") ")
   (js2-print-ast (js2-let-node-body n) i))
 
@@ -8471,10 +8473,11 @@ by `js2-parse-variables'."
                       (js2-let-node-body pn) body
                       (js2-node-type pn) js2-LET))
             ;; let expression
-            (js2-unget-token)
+            (when stmt-p (js2-unget-token))
             (setf body (js2-parse-expr)
                   (js2-node-len pn) (- (js2-node-end body) pos)
                   (js2-let-node-body pn) body))
+          (setf (js2-let-node-vars pn) vars)
           (js2-node-add-children pn vars body))
       (js2-pop-scope))
     pn))
index 389d686d6f110c972b69f322c77ec13da271af97..37d9afac339eb69a1b71fa72bd01916da2182bae 100644 (file)
@@ -121,6 +121,9 @@ the test."
 (js2-deftest-parse for-with-in-operator-in-cond
   "for (var y = 1 ? 0 in [] : false in {}) {\n}")
 
+(js2-deftest-parse let-expression
+  "(let (x = 42) x);")
+
 ;;; Callers of `js2-valid-prop-name-token'
 
 (js2-deftest-parse parse-property-access-when-not-keyword