diff options
| author | Emilio Jesus Gallego Arias | 2020-01-16 20:07:41 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-01-29 17:29:45 +0100 |
| commit | ab2ce06bffb0f06be96af24c0be546f5ebd11471 (patch) | |
| tree | a127682b0539858a577ad9e89cac792b865d40a2 /vernac/mltop.ml | |
| parent | 8c04d108e1f57d0e8e11483a7c9de721ab2f026a (diff) | |
[rfc] [mltop] Removal of dynamic loading of object and `.ml` files
This seems seldom used and I think in general instrumentation this way
is pretty limited (usually better to use the build system to tweak)
It thus seems worth removing as to simplify `Mltop` a bit, but of
course comments are welcome.
Diffstat (limited to 'vernac/mltop.ml')
| -rw-r--r-- | vernac/mltop.ml | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/vernac/mltop.ml b/vernac/mltop.ml index 6621c1e6b1..2bac35b08f 100644 --- a/vernac/mltop.ml +++ b/vernac/mltop.ml @@ -56,7 +56,6 @@ let keep_copy_mlpath path = (* If there is a toplevel under Coq *) type toplevel = { load_obj : string -> unit; - use_file : string -> unit; add_dir : string -> unit; ml_loop : unit -> unit } @@ -123,17 +122,6 @@ let dir_ml_load s = let _,gname = find_file_in_path ~warn !coq_mlpath_copy s in ml_load gname -(* Dynamic interpretation of .ml *) -let dir_ml_use s = - match !load with - | WithTop t -> t.use_file s - | _ -> - let moreinfo = - if Sys.(backend_type = Native) then " Loading ML code works only in bytecode." - else "" - in - user_err ~hdr:"Mltop.dir_ml_use" (str "Could not load ML code." ++ str moreinfo) - (* Adds a path to the ML paths *) let add_ml_dir s = match !load with @@ -258,7 +246,6 @@ let load_ml_object mname ?path fname= init_ml_object mname; path -let dir_ml_load m = ignore(dir_ml_load m) let add_known_module m = add_known_module m None (* Summary of declared ML Modules *) |