diff options
| author | Hugo Herbelin | 2016-10-22 12:22:00 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-10-22 12:22:40 +0200 |
| commit | 46462c3cc69e97bf3260f1aad5faaa6eaf6c2722 (patch) | |
| tree | 67eeabc6becc6476c030c4060524c1fab1ae5320 /test-suite | |
| parent | c28a2a3a1297098ee73ad5b26e714164b6167d2b (diff) | |
| parent | 80d5779409bf33fbe5043275b96775a5f04a3b2c (diff) | |
Merge branch 'v8.5' into v8.6
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/output/ltac.out | 1 | ||||
| -rw-r--r-- | test-suite/output/ltac.v | 5 |
2 files changed, 6 insertions, 0 deletions
diff --git a/test-suite/output/ltac.out b/test-suite/output/ltac.out index f4254e4e2f..a62f4312ed 100644 --- a/test-suite/output/ltac.out +++ b/test-suite/output/ltac.out @@ -26,3 +26,4 @@ The command has indeed failed with message: In nested Ltac calls to "h" and "injection (destruction_arg)", last call failed. Error: No primitive equality found. +Hx diff --git a/test-suite/output/ltac.v b/test-suite/output/ltac.v index dfa60eeda0..fb1dab7994 100644 --- a/test-suite/output/ltac.v +++ b/test-suite/output/ltac.v @@ -43,3 +43,8 @@ Goal True -> False. Fail h I. intro H. Fail h H. + +(* Check printing of the "var" argument "Hx" *) +Ltac m H := idtac H; exact H. +Goal True. +let a:=constr:(let Hx := 0 in ltac:(m Hx)) in idtac. |