From f7906a7e31e6b1cfa135ecea69deb8827e8c8803 Mon Sep 17 00:00:00 2001
From: Kazuki Tsujimoto <kazuki@callcc.net>
Date: Sun, 14 Jun 2020 09:23:43 +0900
Subject: push_pktbl is needed for hash pattern, not for array pattern

---
 parse.y | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/parse.y b/parse.y
index 6d35545c9d..38640664d0 100644
--- a/parse.y
+++ b/parse.y
@@ -4048,10 +4048,9 @@ p_expr_basic	: p_value
 			$$ = new_array_pattern_tail(p, Qnone, 0, 0, Qnone, &@$);
 			$$ = new_array_pattern(p, $1, Qnone, $$, &@$);
 		    }
-		| tLBRACK {$<tbl>$ = push_pktbl(p);} p_args rbracket
+		| tLBRACK p_args rbracket
 		    {
-			pop_pktbl(p, $<tbl>2);
-			$$ = new_array_pattern(p, Qnone, Qnone, $3, &@$);
+			$$ = new_array_pattern(p, Qnone, Qnone, $2, &@$);
 		    }
 		| tLBRACK rbracket
 		    {
-- 
cgit v1.2.3