diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-03-17 12:21:00 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-06-24 10:15:59 +0200 |
| commit | d09def34949186a999e6940fc85e68b750dc7e0e (patch) | |
| tree | 79b61c2bc723b1e3020daecb353c2345a13b3ec8 /checker/check.ml | |
| parent | e2e88741120332f9e97459852d7361e2d8939881 (diff) | |
On-demand Require.
Marshalled libraries are only loaded when needed and dropped thereafter.
This might be costly for Require inside modules, but such a practice is
discouraged anyway.
Diffstat (limited to 'checker/check.ml')
| -rw-r--r-- | checker/check.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/check.ml b/checker/check.ml index 0a5b5eb88..c835cec82 100644 --- a/checker/check.ml +++ b/checker/check.ml @@ -314,7 +314,7 @@ let intern_from_file (dir, f) = try let ch = with_magic_number_check raw_intern_library f in let (sd:Cic.summary_disk), _, digest = System.marshal_in_segment f ch in - let (md:Cic.library_disk), _, digest = System.marshal_in_segment f ch in + let (md:Cic.library_disk), _, _ = System.marshal_in_segment f ch in let (opaque_csts:'a option), _, udg = System.marshal_in_segment f ch in let (discharging:'a option), _, _ = System.marshal_in_segment f ch in let (tasks:'a option), _, _ = System.marshal_in_segment f ch in |