diff options
| author | Maxime Dénès | 2018-06-01 13:49:34 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2018-06-01 13:49:34 +0200 |
| commit | 3a36761a27487e8917e1b59b59abacc2a7e65b95 (patch) | |
| tree | f1cd9d412c40933ff3e87f720dbd8e7cba7f9bbf /interp/notation_ops.ml | |
| parent | ac0bb15616550d00f5e6e7d6239e3b7ff2632975 (diff) | |
| parent | 63b530234e0b19323a50c52434a7439518565c81 (diff) | |
Merge PR #7570: [api] Move `Constrexpr` to the `interp` module.
Diffstat (limited to 'interp/notation_ops.ml')
| -rw-r--r-- | interp/notation_ops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/notation_ops.ml b/interp/notation_ops.ml index b0480aa704..f208b23fb6 100644 --- a/interp/notation_ops.ml +++ b/interp/notation_ops.ml @@ -687,7 +687,7 @@ let is_onlybinding_meta id metas = let is_onlybinding_pattern_like_meta isvar id metas = try match Id.List.assoc id metas with | _,NtnTypeBinder (NtnBinderParsedAsConstr - (Extend.AsIdentOrPattern | Extend.AsStrictPattern)) -> true + (AsIdentOrPattern | AsStrictPattern)) -> true | _,NtnTypeBinder (NtnParsedAsPattern strict) -> not (strict && isvar) | _ -> false with Not_found -> false |