Removed unused function

parser.mly

@@ -11,10 +11,6 @@
 
   let loc start stop = [Loc (Util.loc_from_lexpos start stop)]
 
-  let rec make_dims dimloc = function
-    | [] -> []
-    | dim :: tail -> Dim (dim, dimloc) :: (make_dims dimloc tail)
-
   let rec make_args = function
     | [] -> []
     | h::t -> Arg h :: (make_args t)