File tree Expand file tree Collapse file tree 1 file changed +3
-2
lines changed Expand file tree Collapse file tree 1 file changed +3
-2
lines changed Original file line number Diff line number Diff line change @@ -1922,12 +1922,13 @@ let shape_spec_to_dims_bio labels =
19221922 let dim_var_env = Hashtbl. create (module String ) in
19231923 let f _kind = function
19241924 | Label s when String. contains s '=' -> (
1925- let label , dim =
1925+ let _label , dim =
19261926 match String. split s ~on: '=' with
19271927 | [ l; d ] -> (l, d)
19281928 | _ -> invalid_arg " shape_spec_to_dims_bio: too many '='"
19291929 in
1930- try Row. get_dim ~d: (Int. of_string dim) ~label ()
1930+ (* This is not a dimension label i.e. unit! *)
1931+ try Row. get_dim ~d: (Int. of_string dim) ()
19311932 with _ -> invalid_arg " shape_spec_to_dims_bio: int expected after '='" )
19321933 | Label name ->
19331934 Var (Hashtbl. find_or_add dim_var_env name ~default: (fun () -> Row. get_var ~name () ))
You can’t perform that action at this time.
0 commit comments