diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-11-07 15:24:16 +0100 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-11-20 20:34:52 +0100 |
commit | a83c37de529f12348cd9e3a66a38c58b72777478 (patch) | |
tree | 28185d065ac945e3929395b6b6d6a571e7773bf9 /test-suite/output | |
parent | b9c6982fb5f60f720fd4c0435414406a9ecca749 (diff) |
Fixes #5787 (printing of "constr:" lost in the move of constr to Generic).
Was broken since 8.6.
Diffstat (limited to 'test-suite/output')
-rw-r--r-- | test-suite/output/ltac.out | 7 | ||||
-rw-r--r-- | test-suite/output/ltac.v | 11 |
2 files changed, 18 insertions, 0 deletions
diff --git a/test-suite/output/ltac.out b/test-suite/output/ltac.out index 35c3057d8..c5d58ec1e 100644 --- a/test-suite/output/ltac.out +++ b/test-suite/output/ltac.out @@ -31,3 +31,10 @@ nat nat 0 0 +Ltac foo := + let x := intros ** in + let y := intros -> in + let v := constr:(nil) in + let w := () in + let z := 1 in + pose v diff --git a/test-suite/output/ltac.v b/test-suite/output/ltac.v index 76c37625a..6adbe95dd 100644 --- a/test-suite/output/ltac.v +++ b/test-suite/output/ltac.v @@ -57,3 +57,14 @@ match goal with |- ?x*?y => idtac x end. match goal with H: context [?x*?y] |- _ => idtac x end. match goal with |- context [?x*?y] => idtac x end. Abort. + +(* Check printing of let in Ltac and Tactic Notation *) + +Ltac foo := + let x := intros in + let y := intros -> in + let v := constr:(@ nil True) in + let w := () in + let z := 1 in + pose v. +Print Ltac foo. |