1
2
3
4
5
6
7
8
9
10
11
open! Core
open! Import
open! Ecaml_filename
let path = Var.Wrap.("load-path" <: path_list)
let load =
let load = Funcall.Wrap.("load" <: Filename.t @-> bool @-> bool @-> return nil) in
fun ?(message = true) filename ->
Value.Private.run_outside_async [%here] (fun () -> load filename false (not message))
;;