diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-05 04:31:45 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-05 04:31:45 +0000 |
| commit | a74da602dfcd44bb643b29ce2f5552cf39659173 (patch) | |
| tree | 00524fe51cccda49bb8b52604d685403b747f419 /toplevel/indschemes.ml | |
| parent | ab43fdad072827664718a881fdb46fb950983a47 (diff) | |
Minor fixes.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12845 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/indschemes.ml')
| -rw-r--r-- | toplevel/indschemes.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/indschemes.ml b/toplevel/indschemes.ml index 3c0647112..1cd00068b 100644 --- a/toplevel/indschemes.ml +++ b/toplevel/indschemes.ml @@ -60,8 +60,8 @@ let _ = { optsync = true; optname = "automatic declaration of case analysis schemes"; optkey = ["Case";"Analysis";"Schemes"]; - optread = (fun () -> !elim_flag) ; - optwrite = (fun b -> elim_flag := b) } + optread = (fun () -> !case_flag) ; + optwrite = (fun b -> case_flag := b) } let eq_flag = ref true let _ = |