diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-09-10 07:09:16 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-09-10 07:09:16 +0000 |
commit | ebfbb2cf101b83f4b3a393e68dbdfdc3bfbcaf1a (patch) | |
tree | dc6369b195caf80dede926919adfdd9e463be83f /library/states.ml | |
parent | 3ee6a7f4c93ec65bca0ea65ab41364e220349071 (diff) |
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
Diffstat (limited to 'library/states.ml')
-rw-r--r-- | library/states.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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. *) |