Skip to content
Snippets Groups Projects
Commit 4d39284d authored by Ralf Jung's avatar Ralf Jung
Browse files

note that things will be better in the future

parent 0e7930c6
No related branches found
No related tags found
No related merge requests found
...@@ -64,7 +64,10 @@ Module StringToIdent. ...@@ -64,7 +64,10 @@ Module StringToIdent.
Ltac2 coq_string_to_ident (s : constr) := ident_from_string (coq_string_to_string s). Ltac2 coq_string_to_ident (s : constr) := ident_from_string (coq_string_to_string s).
(** We want to wrap this in an Ltac1 API, which requires passing a string to (** We want to wrap this in an Ltac1 API, which requires passing a string to
Ltac2 and then performing an intros. *) Ltac2 and then performing an intros.
TODO: Once we require Coq 8.14, we should be able to pass idents across
the Ltac/Ltac2 barrier, which can be used to avoid the revert/intros.
*)
Ltac2 get_opt o := match o with None => Control.throw Not_found | Some x => x end. Ltac2 get_opt o := match o with None => Control.throw Not_found | Some x => x end.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment