diff options
| author | Hugo Herbelin | 2014-09-24 15:03:34 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-09-24 15:04:30 +0200 |
| commit | 9ec08ac299faf6acdfd6061fd21a00e3446aec79 (patch) | |
| tree | 2eed6d251673b4707696632380cd76d724136fff /parsing | |
| parent | e24a118644d77e86ace11a34230711b204025c3b (diff) | |
Using an or_var rather than the hack with loc for coding a pure ident
as a disjunctive intropattern.
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_tactic.ml4 | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index 5ffabbcf55..4b9d223ad7 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -476,12 +476,8 @@ GEXTEND Gram | -> None ] ] ; or_and_intropattern_loc: - [ [ ipat = or_and_intropattern -> !@loc, ipat - | id = ident -> - !@loc, - (* coding, see tacinterp.ml: *) - [[Loc.ghost, IntroNaming (IntroIdentifier id)]] - ] ] + [ [ ipat = or_and_intropattern -> ArgArg (!@loc,ipat) + | locid = identref -> ArgVar locid ] ] ; as_or_and_ipat: [ [ "as"; ipat = or_and_intropattern_loc -> Some ipat |