Fix MulExpr to use Unary on rhs

diff --git a/extra/peg/javascript/parser/parser.factor b/extra/peg/javascript/parser/parser.factor
index d44bbcf675a5366c00671140ce266c37aafbee23..b7df9908da45db66db97cc58ac28d8f482a609ec 100644 (file)
--- a/extra/peg/javascript/parser/parser.factor
+++ b/extra/peg/javascript/parser/parser.factor
@@ -60,9 +60,9 @@ RelExpr            =   RelExpr:x ">" AddExpr:y          => [[ x y ">" ast-binop
 AddExpr            =   AddExpr:x "+" MulExpr:y          => [[ x y "+" ast-binop boa ]]
                      | AddExpr:x "-" MulExpr:y          => [[ x y "-" ast-binop boa ]]
                      | MulExpr
-MulExpr            =   MulExpr:x "*" MulExpr:y          => [[ x y "*" ast-binop boa ]]
-                     | MulExpr:x "/" MulExpr:y          => [[ x y "/" ast-binop boa ]]
-                     | MulExpr:x "%" MulExpr:y          => [[ x y "%" ast-binop boa ]]
+MulExpr            =   MulExpr:x "*" Unary:y            => [[ x y "*" ast-binop boa ]]
+                     | MulExpr:x "/" Unary:y            => [[ x y "/" ast-binop boa ]]
+                     | MulExpr:x "%" Unary:y            => [[ x y "%" ast-binop boa ]]
                      | Unary
 Unary              =   "-" Postfix:p                    => [[ p "-" ast-unop boa ]]
                      | "+" Postfix:p                    => [[ p ]]