diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-25 22:34:15 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-25 22:34:15 +0000 |
| commit | 6e34881bf892602f297797481880ffa1d7db139d (patch) | |
| tree | 6ba89e642dd33be462f37720b57234ebc9828670 /interp/notation.ml | |
| 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/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 a5a6138f6..624fa23aa 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 |