From 36701f1900c8247d76436f2cf7ee09865b45ce3f Mon Sep 17 00:00:00 2001
From: barras
Date: Fri, 9 Mar 2001 16:11:48 +0000
Subject: protection contre certaines exceptions levees par marshal_{in,out}
 possibilite de declarer une def syntaxique comme infix (utilise par FTA)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1442 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/system.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/system.ml b/lib/system.ml
index d3b2229227..db478d9e35 100644
--- a/lib/system.ml
+++ b/lib/system.ml
@@ -110,7 +110,9 @@ let try_remove f =
                      'sTR f ; 'sTR" which is corrupted!" >]
 
 let marshal_out ch v = Marshal.to_channel ch v []
-let marshal_in ch = Marshal.from_channel ch
+let marshal_in ch =
+  try Marshal.from_channel ch
+  with End_of_file -> error "corrupted file: reached end of file"
 
 exception Bad_magic_number of string
 
-- 
cgit v1.2.3