diff options
| author | Pierre-Marie Pédrot | 2017-07-26 16:01:52 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-07-26 16:01:52 +0200 |
| commit | edb9a5dd11520804d65e9b1e95ca38bb4acbb0e6 (patch) | |
| tree | 444ebd07df874327a45149959c16e3e797a0ddbb /src | |
| parent | 93b5d42467dae8513ad7da4990f909bcc9f5b7fa (diff) | |
Lightweight quotation syntax for terms and idents.
Diffstat (limited to 'src')
| -rw-r--r-- | src/g_ltac2.ml4 | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/g_ltac2.ml4 b/src/g_ltac2.ml4 index 47def14125..605cb75d66 100644 --- a/src/g_ltac2.ml4 +++ b/src/g_ltac2.ml4 @@ -91,6 +91,8 @@ GEXTEND Gram [ [ n = Prim.integer -> CTacAtm (Loc.tag ~loc:!@loc (AtmInt n)) | s = Prim.string -> CTacAtm (Loc.tag ~loc:!@loc (AtmStr s)) | id = Prim.qualid -> CTacRef (RelId id) + | "@"; id = Prim.ident -> inj_ident !@loc id + | "'"; c = Constr.constr -> inj_open_constr !@loc c | IDENT "constr"; ":"; "("; c = Constr.lconstr; ")" -> inj_constr !@loc c | IDENT "open_constr"; ":"; "("; c = Constr.lconstr; ")" -> inj_open_constr !@loc c | IDENT "ident"; ":"; "("; c = Prim.ident; ")" -> inj_ident !@loc c |