diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-23 22:17:16 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-23 22:17:16 +0000 |
| commit | 4e20ed9e5c1608226f0d736df10bb82fc402e7a2 (patch) | |
| tree | 2a615de4ac82fdb08883e8f1a9547317ce836ab9 /grammar | |
| parent | 1d5248b0d1f65afa5a1d2cad4a04671f6f3ce3f5 (diff) | |
CList.factorize_left with a parametric equality
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16923 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/tacextend.ml4 | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/grammar/tacextend.ml4 b/grammar/tacextend.ml4 index 5ea514174..12de0bcbe 100644 --- a/grammar/tacextend.ml4 +++ b/grammar/tacextend.ml4 @@ -172,8 +172,9 @@ let rec possibly_empty_subentries loc = function let possibly_atomic loc prods = let l = List.map_filter (function | GramTerminal s :: l, _, _ -> Some (s,l) - | _ -> None) prods in - possibly_empty_subentries loc (List.factorize_left l) + | _ -> None) prods + in + possibly_empty_subentries loc (List.factorize_left String.equal l) let declare_tactic loc s c cl = let se = mlexpr_of_string s in |