diff options
| author | ppedrot | 2013-08-25 22:34:15 +0000 |
|---|---|---|
| committer | ppedrot | 2013-08-25 22:34:15 +0000 |
| commit | 6e34881bf892602f297797481880ffa1d7db139d (patch) | |
| tree | 6ba89e642dd33be462f37720b57234ebc9828670 /interp | |
| parent | f4a6a6aaa928e7a6c8d360c45268cb82c020c2dc (diff) | |
Actually using the domain function for maps.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16736 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrintern.ml | 6 | ||||
| -rw-r--r-- | interp/notation.ml | 2 |
2 files changed, 3 insertions, 5 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 4ab85e0e6c..363f43fd75 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -358,11 +358,9 @@ let locate_if_isevar loc na = function | x -> x let reset_hidden_inductive_implicit_test env = - { env with impls = Id.Map.fold (fun id x -> - let x = match x with + { env with impls = Id.Map.map (function | (Inductive _,b,c,d) -> (Inductive [],b,c,d) - | x -> x - in Id.Map.add id x) env.impls Id.Map.empty } + | x -> x) env.impls } let check_hidden_implicit_parameters id impls = if Id.Map.exists (fun _ -> function diff --git a/interp/notation.ml b/interp/notation.ml index a5a6138f6e..624fa23aa0 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -771,7 +771,7 @@ let pr_notation_info prglob ntn c = let pr_named_scope prglob scope sc = (if String.equal scope default_scope then - match String.Map.fold (fun _ _ x -> x+1) sc.notations 0 with + match String.Map.cardinal sc.notations with | 0 -> str "No lonely notation" | n -> str "Lonely notation" ++ (if Int.equal n 1 then mt() else str"s") else |