diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-03 23:13:28 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-03 23:13:28 +0000 |
commit | 6c1c22a3058c2f7937779dc08007b153a31699c2 (patch) | |
tree | 52d5fc3f2805ec1dbd2e136249365b1fa1601bef /checker/check.ml | |
parent | 4e815cf82079e7b52f610d74a4bb1325ad408239 (diff) |
Fixing coqchk compilation after commit r16183
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16184 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/check.ml')
-rw-r--r-- | checker/check.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/checker/check.ml b/checker/check.ml index 18640d9d4..4d09e879d 100644 --- a/checker/check.ml +++ b/checker/check.ml @@ -296,9 +296,9 @@ let intern_from_file (dir, f) = let (md,table,digest) = try let ch = with_magic_number_check raw_intern_library f in - let (md:library_disk) = System.marshal_in ch in - let digest = System.marshal_in ch in - let table = (System.marshal_in ch : Safe_typing.LightenLibrary.table) in + let (md:library_disk) = System.marshal_in f ch in + let digest = System.marshal_in f ch in + let table = (System.marshal_in f ch : Safe_typing.LightenLibrary.table) in close_in ch; if dir <> md.md_name then errorlabstrm "load_physical_library" |