Skip to content

Commit 58af4e2

Browse files
committed
fix compat with ocaml < 4.13
1 parent 1cd9e96 commit 58af4e2

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/coq_elpi_utils.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -482,7 +482,7 @@ let detype ?(keepunivs = false) env sigma t =
482482
list_map_acc
483483
(fun env (n, ty) -> push_occurring_rel (LocalAssum (n, ty)) env)
484484
env
485-
(CArray.combine names tys |> CArray.to_list)
485+
(CList.combine (names|> CArray.to_list) (tys |> CArray.to_list))
486486
in
487487
let n = Array.length tys in
488488
let v = CArray.map3 (fun c t i -> share_names (i + 1) [] env c (Vars.lift n t)) bodies tys vn in

0 commit comments

Comments
 (0)