From ebfbb2cf101b83f4b3a393e68dbdfdc3bfbcaf1a Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Sun, 10 Sep 2000 07:09:16 +0000
Subject: Uniformisation AddPath, Print LoadPath, ... en Add Path, Print Path.
 Abstraction de constr. LetIn.

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

(limited to 'library/states.ml')

diff --git a/library/states.ml b/library/states.ml
index 0e60caecb..b5c45383d 100644
--- a/library/states.ml
+++ b/library/states.ml
@@ -20,7 +20,7 @@ let state_magic_number = 19764
 let (extern_state,intern_state) =
   let (raw_extern, raw_intern) = extern_intern state_magic_number ".coq" in
   (fun s -> raw_extern s (get_state())),
-  (fun s -> set_state (raw_intern s))
+  (fun s -> set_state (raw_intern (Library.get_load_path ()) s))
 
 (* Rollback. *)
 
-- 
cgit v1.2.3