diff options
| author | Maxime Dénès | 2019-04-05 10:09:02 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2019-04-10 15:41:44 +0200 |
| commit | 84fa6a47a7ca5fbb5c83595ea2491f821b0c9d86 (patch) | |
| tree | 1868fc448cfd325effd6a76514c9d4fab052435c /interp/notation.ml | |
| parent | 61d53a17c594de1ea37b37f6215319d996ec31ea (diff) | |
Remove calls to Global.env in Glob_ops
Diffstat (limited to 'interp/notation.ml')
| -rw-r--r-- | interp/notation.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index b9aca82cf4..56504db04e 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -1516,7 +1516,7 @@ let uninterp_prim_token c = with Not_found -> raise Notation_ops.No_match let uninterp_prim_token_cases_pattern c = - match glob_constr_of_closed_cases_pattern c with + match glob_constr_of_closed_cases_pattern (Global.env()) c with | exception Not_found -> raise Notation_ops.No_match | na,c -> let (sc,n) = uninterp_prim_token c in (na,sc,n) |