diff options
| author |  Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-09-29 17:05:45 +0200 |
|---|---|---|
| committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-09-29 17:05:45 +0200 |
| commit | 82a618e8a4945752698a7900c8af7a51091f7b1b (patch) | |
| tree | d1d0044005573d11830d264c9eb6802aa9e237a2 /lib/system.mli | |
| parent | da4d0b0e3d82621fe8338dd313b788472fc31bb2 (diff) | |
Prevent States.intern_state and System.extern_intern from looking up files in the loadpath.
This patch causes a bit of code duplication (because of the .coq suffix
added to state files) but it makes it clear which part of the code is
looking up files in the loadpath and for what purpose. Also it makes the
interface of System.extern_intern and System.raw_extern_intern much saner.
Diffstat (limited to 'lib/system.mli')
| -rw-r--r-- | lib/system.mli | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/system.mli b/lib/system.mli index a3d66d577..5797502e9 100644 --- a/lib/system.mli +++ b/lib/system.mli @@ -37,10 +37,10 @@ val find_file_in_path : exception Bad_magic_number of string val raw_extern_intern : int -> - (string -> string * out_channel) * (string -> in_channel) + (string -> out_channel) * (string -> in_channel) -val extern_intern : ?warn:bool -> int -> - (string -> 'a -> unit) * (CUnix.load_path -> string -> 'a) +val extern_intern : int -> + (string -> 'a -> unit) * (string -> 'a) val with_magic_number_check : ('a -> 'b) -> 'a -> 'b |