diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-01 20:54:30 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-01 20:54:30 +0000 |
commit | 4e815cf82079e7b52f610d74a4bb1325ad408239 (patch) | |
tree | 99e6566d34091915092609f7fc31e941b721f6dc /library/library.ml | |
parent | 3b342fc581294fe16ad53c71832ba61c0f717bd1 (diff) |
v8.4: Granting bug/wish #2976 (turning anomaly on input_value into nice message)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16183 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/library.ml')
-rw-r--r-- | library/library.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/library.ml b/library/library.ml index 681a79129..ea70f17c4 100644 --- a/library/library.ml +++ b/library/library.ml @@ -410,8 +410,8 @@ let fetch_opaque_table (f,pos,digest) = try let ch = System.with_magic_number_check raw_intern_library f in seek_in ch pos; - if not (String.equal (System.marshal_in ch) digest) then failwith "File changed!"; - let table = (System.marshal_in ch : LightenLibrary.table) in + if not (String.equal (System.marshal_in f ch) digest) then failwith "File changed!"; + let table = (System.marshal_in f ch : LightenLibrary.table) in close_in ch; table with _ -> @@ -421,9 +421,9 @@ let fetch_opaque_table (f,pos,digest) = let intern_from_file f = let ch = System.with_magic_number_check raw_intern_library f in - let lmd = System.marshal_in ch in + let lmd = System.marshal_in f ch in let pos = pos_in ch in - let digest = System.marshal_in ch in + let digest = System.marshal_in f ch in let table = lazy (fetch_opaque_table (f,pos,digest)) in register_library_filename lmd.md_name f; let library = mk_library lmd table digest in |