aboutsummaryrefslogtreecommitdiff
path: root/plugins/ssr/ssrparser.mlg
diff options
context:
space:
mode:
authorEnrico Tassi2019-01-21 10:59:11 +0100
committerEnrico Tassi2019-01-21 14:51:08 +0100
commitfffbab34e35568abfd59c698121d4b314fe610c2 (patch)
treedff3ea16a1c8e11e44307f117c6d2c5676e45aa4 /plugins/ssr/ssrparser.mlg
parentbe7e584921ca1bed7e37c2d15ab2def0e8dfe484 (diff)
[ssr] cleanup of some comments
Diffstat (limited to 'plugins/ssr/ssrparser.mlg')
-rw-r--r--plugins/ssr/ssrparser.mlg11
1 files changed, 0 insertions, 11 deletions
diff --git a/plugins/ssr/ssrparser.mlg b/plugins/ssr/ssrparser.mlg
index 58ae934ea3..3fb21e5ef6 100644
--- a/plugins/ssr/ssrparser.mlg
+++ b/plugins/ssr/ssrparser.mlg
@@ -752,17 +752,6 @@ ARGUMENT EXTEND ssripat TYPED AS ssripatrep list PRINTED BY { pr_ssripats }
| [ "*" ] -> { [IPatAnon All] }
| [ ">" ] -> { [IPatFastNondep] }
| [ ident(id) ] -> { [IPatId id] }
-(*
- | [ ssrdocc(occ) ident(id) ] -> { match occ with
- | Some [], None -> [IPatClear[SsrHyp(Some loc,id)];IPatId id]
- | Some cl, None ->
- check_hyps_uniq [] cl;
- let cl =
- if CList.mem_f Id.equal id (List.map hyp_id cl)
- then cl else (SsrHyp(Some loc,id) :: cl) in
- [IPatClear cl;IPatId id]
- | _ -> CErrors.user_err ~loc (str"Only identifiers are allowed here") }
-*)
| [ "?" ] -> { [IPatAnon (One None)] }
| [ "+" ] -> { [IPatAnon Temporary] }
| [ "++" ] -> { [IPatAnon Temporary; IPatAnon Temporary] }