diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-07-24 16:27:09 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-07-24 16:27:09 +0000 |
| commit | 3206760263873e0dd2553ccf73632461eabfdcc6 (patch) | |
| tree | eb0a7a677fe5ec13c737ef11f12a89a9baa40ddd /library/states.ml | |
| parent | de7abebd102227bda6af04a3078479ea09db1da3 (diff) | |
moved magic numbers to configure (share coq/coqchk)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11254 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/states.ml')
| -rw-r--r-- | library/states.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/library/states.ml b/library/states.ml index 7c3953151..c985dcf2c 100644 --- a/library/states.ml +++ b/library/states.ml @@ -19,10 +19,9 @@ let unfreeze (fl,fs) = Lib.unfreeze fl; Summary.unfreeze_summaries fs -let state_magic_number = 19764 - let (extern_state,intern_state) = - let (raw_extern, raw_intern) = extern_intern state_magic_number ".coq" in + let (raw_extern, raw_intern) = + extern_intern Coq_config.state_magic_number ".coq" in (fun s -> raw_extern s (freeze())), (fun s -> unfreeze (raw_intern (Library.get_load_paths ()) s); |