From 4e815cf82079e7b52f610d74a4bb1325ad408239 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 1 Feb 2013 20:54:30 +0000
Subject: 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
---
 library/library.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'library')

diff --git a/library/library.ml b/library/library.ml
index 681a791292..ea70f17c41 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
-- 
cgit v1.2.3