Skip to content
Snippets Groups Projects
Commit 9e0cc537 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Move Ltac2 `compute` back into `StringToIdent` module.

parent 44508871
No related branches found
No related tags found
No related merge requests found
...@@ -6,9 +6,6 @@ From iris.prelude Require Import options. ...@@ -6,9 +6,6 @@ From iris.prelude Require Import options.
Import List.ListNotations. Import List.ListNotations.
Local Open Scope list. Local Open Scope list.
Ltac2 compute (c : Init.constr) : Init.constr :=
Std.eval_vm Init.None c.
Module StringToIdent. Module StringToIdent.
Import Ltac2. Import Ltac2.
...@@ -45,6 +42,9 @@ Module StringToIdent. ...@@ -45,6 +42,9 @@ Module StringToIdent.
| _ => Control.throw (NotStringLiteral s) | _ => Control.throw (NotStringLiteral s)
end. end.
Ltac2 compute (c : constr) : constr :=
Std.eval_vm None c.
(** [coq_string_to_string] converts a Gallina string in a constr to an Ltac2 (** [coq_string_to_string] converts a Gallina string in a constr to an Ltac2
native string *) native string *)
Ltac2 coq_string_to_string (s : constr) : string := Ltac2 coq_string_to_string (s : constr) : string :=
......
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