diff options
author | 2017-10-29 19:22:27 +0100 | |
---|---|---|
committer | 2017-11-02 11:38:59 +0100 | |
commit | 9c232079b996313ed1f5b63746304ccd639c8355 (patch) | |
tree | b52102e3623e94b7621f01f51ae384a2d51b57e0 /test-suite/bugs/closed/5786.v | |
parent | 565a9a1b5368c586e529fc9774e4cb4b81c6441b (diff) |
Binding ltac printing functions to the system of generic printing.
This concerns pr_value and message_of_value.
This has a few consequences. For instance, no more ad hoc message "a
term" or "a tactic", when not enough information is available for
printing, one gets a generic message "a value of type foobar".
But we also have more printers, satisfying e.g. request #5786.
Diffstat (limited to 'test-suite/bugs/closed/5786.v')
-rw-r--r-- | test-suite/bugs/closed/5786.v | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/5786.v b/test-suite/bugs/closed/5786.v new file mode 100644 index 000000000..20301ec4f --- /dev/null +++ b/test-suite/bugs/closed/5786.v @@ -0,0 +1,29 @@ +(* Printing all kinds of Ltac generic arguments *) + +Tactic Notation "myidtac" string(v) := idtac v. +Goal True. +myidtac "foo". +Abort. + +Tactic Notation "myidtac2" ref(c) := idtac c. +Goal True. +myidtac2 True. +Abort. + +Tactic Notation "myidtac3" preident(s) := idtac s. +Goal True. +myidtac3 foo. +Abort. + +Tactic Notation "myidtac4" int_or_var(n) := idtac n. +Goal True. +myidtac4 3. +Abort. + +Tactic Notation "myidtac5" ident(id) := idtac id. +Goal True. +myidtac5 foo. +Abort. + + + |