diff options
| author | Pierre-Marie Pédrot | 2015-12-31 19:26:02 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-01-02 02:02:02 +0100 |
| commit | a5e1b40b93e47a278746ee6752474891cd856c29 (patch) | |
| tree | 5d70a6984533ed605a99033472409fa182abe646 /printing | |
| parent | 9a6269a2a425de9d1a593f2c7be77cc2922b46aa (diff) | |
Simplification of grammar_prod_item type.
Actually the identifier was never used and just carried along.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppvernac.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 4957199903..daba18bad2 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -105,10 +105,9 @@ module Make else id let pr_production_item = function - | TacNonTerm (loc,nt,Some (p,sep)) -> + | TacNonTerm (loc, nt, (p, sep)) -> let pp_sep = if not (String.is_empty sep) then str "," ++ quote (str sep) else mt () in str nt ++ str"(" ++ pr_id (strip_meta p) ++ pp_sep ++ str")" - | TacNonTerm (loc,nt,None) -> str nt | TacTerm s -> qs s let pr_comment pr_c = function |