Commit 29dbd1be authored by Kim Nguyễn's avatar Kim Nguyễn
Browse files

Don't overwrite the load_path when initialising the OCaml bindings, but rather append to it.

parent f45965e8
Pipeline #144 passed with stages
in 6 minutes and 47 seconds
......@@ -888,8 +888,16 @@ let wrapper values =
(Exp.setfield
(Exp.ident (lid "Cduce_loc.obj_path"))
(lid "contents")
(list_list
(List.map (fun p -> str p) !Cduce_core.Cduce_loc.obj_path)))
(sapply "@"
[
Exp.field
(Exp.ident (lid "Cduce_loc.obj_path"))
(lid "contents");
list_list
(List.map
(fun p -> str p)
!Cduce_core.Cduce_loc.obj_path);
]))
exts))))
(* Mlcompat.Mlstub.str_open (lid "Cduce_lib"); *)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment