diff options
author | 2015-07-01 11:25:47 +0200 | |
---|---|---|
committer | 2015-07-01 11:25:55 +0200 | |
commit | 0917ce7cf48cadacc6fca48ba18b395740cccbe2 (patch) | |
tree | 883b3c7e087e8791fbe8cf5c2bbf2b2676f34013 /test-suite/bugs | |
parent | 72f128af5a00e5509239e46b395c9cd10e53b36a (diff) |
Notation: use same level for "@" in constr: and pattern: (Close: #4272)
A possible script breakage can occur if one has a notation
at level 11 that is also right associative (now 11 is left associative).
Thanks Georges for debugging that.
Diffstat (limited to 'test-suite/bugs')
-rw-r--r-- | test-suite/bugs/closed/4272.v | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/4272.v b/test-suite/bugs/closed/4272.v new file mode 100644 index 000000000..aeb4c9bb9 --- /dev/null +++ b/test-suite/bugs/closed/4272.v @@ -0,0 +1,12 @@ +Set Implicit Arguments. + +Record foo := Foo { p1 : Type; p2 : p1 }. + +Variable x : foo. + +Let p := match x with @Foo a b => a end. + +Notation "@ 'id'" := 3 (at level 10). +Notation "@ 'sval'" := 3 (at level 10). + +Let q := match x with @Foo a b => a end. |