diff options
Diffstat (limited to 'interp/constrexpr_ops.ml')
| -rw-r--r-- | interp/constrexpr_ops.ml | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/interp/constrexpr_ops.ml b/interp/constrexpr_ops.ml index d5f0b7bff6..07ed7825ff 100644 --- a/interp/constrexpr_ops.ml +++ b/interp/constrexpr_ops.ml @@ -605,13 +605,13 @@ let rec coerce_to_cases_pattern_expr c = CAst.map_with_loc (fun ?loc -> function (str "This expression should be coercible to a pattern.")) c let asymmetric_patterns = ref (false) -let _ = Goptions.declare_bool_option { - Goptions.optdepr = false; - Goptions.optname = "no parameters in constructors"; - Goptions.optkey = ["Asymmetric";"Patterns"]; - Goptions.optread = (fun () -> !asymmetric_patterns); - Goptions.optwrite = (fun a -> asymmetric_patterns:=a); -} +let () = Goptions.(declare_bool_option { + optdepr = false; + optname = "no parameters in constructors"; + optkey = ["Asymmetric";"Patterns"]; + optread = (fun () -> !asymmetric_patterns); + optwrite = (fun a -> asymmetric_patterns:=a); +}) (** Local universe and constraint declarations. *) |