diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-03-17 21:46:47 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-03-17 21:46:47 +0000 |
| commit | e3c880264bf54083b962d41a4c6e1ef35ca464f2 (patch) | |
| tree | 4596a3e72fb728362ae13832e8597ef007a3635e /toplevel | |
| parent | ce5a3cd114d3a570cdd569e65f1a2a71f81c39f4 (diff) | |
Goptions: repair Unset for int options
Previous code was trying to do a bool write, and in case of error,
a int write. But for compatibility reason, bool write error were
turned into warnings, preventing Unset Foo Bar to work when
Foo Bar is an int option.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13915 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/vernacentries.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index ddd97dda5..faa21850d 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -944,7 +944,7 @@ let _ = let _ = declare_int_option { optsync = true; - optname = "level of inling duging functor application"; + optname = "the level of inling duging functor application"; optkey = ["Inline";"Level"]; optread = (fun () -> Some (Flags.get_inline_level ())); optwrite = (fun o -> @@ -1026,9 +1026,7 @@ let vernac_set_option locality key = function | BoolValue b -> set_bool_option_value_gen locality key b let vernac_unset_option locality key = - try set_bool_option_value_gen locality key false - with _ -> - set_int_option_value_gen locality key None + unset_option_value_gen locality key let vernac_add_option key lv = let f = function |