States: frozen states can hold closures

States.freeze takes ~marshallable:bool, so that (only) when we want to
marshal data to disk/network we can ask the freeze functions of the
summary to force lazy values.  The flag is propagated to Lib and Summary.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16478 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 1 insertions, 1 deletions

diff --git a/library/goptions.ml b/library/goptions.ml
index bdc6ab89d..597c23b7d 100644
--- a/library/goptions.ml
+++ b/library/goptions.ml
@@ -240,7 +240,7 @@ let declare_option cast uncast
 		       load_function = (fun _ (_,v) -> write v)}
     in
     let _ = Summary.declare_summary (nickname key)
-	     { Summary.freeze_function = read;
+	     { Summary.freeze_function = (fun _ -> read ());
 	       Summary.unfreeze_function = write;
 	       Summary.init_function = (fun () -> write default) }
     in