diff options
author | 2017-06-01 15:44:11 +0200 | |
---|---|---|
committer | 2017-06-01 15:44:11 +0200 | |
commit | 84d49e38a245cbbbe5b6111a4e4d9afcbac2d33b (patch) | |
tree | 0e6bff9cf7c2aaf6967352bd5b5f8c8a2831a570 /interp/notation_ops.ml | |
parent | 48621da27d52be4825eea271d44bbd7362011dfa (diff) | |
parent | 8ab00e5f272aa8f16d70a00323c57f2d4ef66f03 (diff) |
Merge PR#561: Improving the Name API
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 04b7f7f3f..8e876ec16 100644 --- a/interp/notation_ops.ml +++ b/interp/notation_ops.ml @@ -159,7 +159,7 @@ let glob_constr_of_notation_constr_with_binders ?loc g f e nc = e',Some (Loc.tag ?loc (ind,nal')) in let e',na' = g e' na in (e',(f e tm,(na',t'))::tml')) tml (e,[]) in - let fold (idl,e) na = let (e,na) = g e na in ((name_cons na idl,e),na) in + let fold (idl,e) na = let (e,na) = g e na in ((Name.cons na idl,e),na) in let eqnl' = List.map (fun (patl,rhs) -> let ((idl,e),patl) = List.fold_map (cases_pattern_fold_map ?loc fold) ([],e) patl in |