From 6c1c22a3058c2f7937779dc08007b153a31699c2 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Sun, 3 Feb 2013 23:13:28 +0000
Subject: Fixing coqchk compilation after commit r16183

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16184 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 checker/check.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/checker/check.ml b/checker/check.ml
index 18640d9d4d..4d09e879d3 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"
-- 
cgit v1.2.3