diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-09-21 13:59:35 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-09-21 13:59:35 +0200 |
| commit | bd81eaef87c5eb3a5d5bf398e151235e4e5c81a1 (patch) | |
| tree | 72246effa2d991b2370aa77f7f8f00ce5fe6c395 /interp/constrintern.ml | |
| parent | 9c352481f1a2d3a9c2e0e1f084d1c65521a0c438 (diff) | |
Fix an error-prone error API.
Diffstat (limited to 'interp/constrintern.ml')
| -rw-r--r-- | interp/constrintern.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index fb11359e3..0e5602078 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -1208,7 +1208,7 @@ let drop_notations_pattern looked_for = if top then looked_for g else match g with ConstructRef _ -> () | _ -> raise Not_found with Not_found -> - error_invalid_pattern_notation ~loc + error_invalid_pattern_notation ~loc () in let test_kind top = if top then looked_for else function ConstructRef _ -> () | _ -> raise Not_found @@ -1349,7 +1349,7 @@ let drop_notations_pattern looked_for = | NHole _ -> let () = assert (List.is_empty args) in RCPatAtom (loc, None) - | t -> error_invalid_pattern_notation ~loc + | t -> error_invalid_pattern_notation ~loc () in in_pat true let rec intern_pat genv aliases pat = |