From 1e485645ef6481a856e8a67477f186519fb8ec9d Mon Sep 17 00:00:00 2001
From: coq
Date: Sat, 5 Oct 2002 11:03:20 +0000
Subject: Lazy experimentale temporaire...

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

(limited to 'lib')

diff --git a/lib/system.ml b/lib/system.ml
index 35584bf89b..eb2305112a 100644
--- a/lib/system.ml
+++ b/lib/system.ml
@@ -140,7 +140,7 @@ let try_remove f =
   with _ -> msgnl (str"Warning: " ++ str"Could not remove file " ++
                    str f ++ str" which is corrupted!" )
 
-let marshal_out ch v = Marshal.to_channel ch v []
+let marshal_out ch v = Marshal.to_channel ch v [Marshal.Closures]
 let marshal_in ch =
   try Marshal.from_channel ch
   with End_of_file -> error "corrupted file: reached end of file"
-- 
cgit v1.2.3