Indirect through arrayref.

diff --git a/mad b/mad
index 559c05c0ac1dc4813e087e210fe7455d5d1c3f5c..2443eff629a1050c70cdcc72457b12b9d2a0d18c 100755 (executable)
--- a/mad
+++ b/mad
@@ -178,11 +178,14 @@ def p_statement_dimension(t):
     'statement : DIMENSION dimension_list'
     t[0] = ('dimension', t[2])
 def p_dimension_list(t):
-    'dimension_list : NAME application'
-    t[0] = [[t[1], tuple(t[2])]]
+    'dimension_list : arrayref'
+    t[0] = t[1]
 def p_dimension_list_continue(t):
-    'dimension_list : dimension_list COMMA NAME application'
-    t[0] = t[1] + [[t[3], tuple(t[4])]]
+    'dimension_list : dimension_list COMMA arrayref'
+    t[0] = t[1] + t[3]
+def p_arrayref(t):
+    'arrayref : NAME application'
+    t[0] = [[t[1], tuple(t[2])]]
 
 ## END
 def p_end_of_program(t):