aboutsummaryrefslogtreecommitdiffhomepage
path: root/vernac/record.ml
diff options
context:
space:
mode:
authorGravatar Maxime Dénès <mail@maximedenes.fr>2017-10-20 11:05:25 +0200
committerGravatar Maxime Dénès <mail@maximedenes.fr>2017-10-20 11:05:25 +0200
commit7e5a0e348e9686b7d75285f1ae71406a82a19170 (patch)
tree2e54113fbfeb2c70860e78e5f3e503f41bc7c804 /vernac/record.ml
parent8492fa8d2aa0e77b7c571956ee21097977b1df15 (diff)
parent26f216653aed171a70513d3f5ece059ab30bcd73 (diff)
Merge PR #1120: Fixing BZ#5762 (supporting implicit arguments in "where" clause of an inductive definitions
Diffstat (limited to 'vernac/record.ml')
-rw-r--r--vernac/record.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/record.ml b/vernac/record.ml
index 18e7796ca..9a8657c3c 100644
--- a/vernac/record.ml
+++ b/vernac/record.ml
@@ -72,7 +72,7 @@ let interp_fields_evars env evars impls_env nots l =
| None -> LocalAssum (i,t')
| Some b' -> LocalDef (i,b',t')
in
- List.iter (Metasyntax.set_notation_for_interpretation impls) no;
+ List.iter (Metasyntax.set_notation_for_interpretation env impls) no;
(EConstr.push_rel d env, impl :: uimpls, d::params, impls))
(env, [], [], impls_env) nots l