aboutsummaryrefslogtreecommitdiff
path: root/interp/constrextern.ml
diff options
context:
space:
mode:
Diffstat (limited to 'interp/constrextern.ml')
-rw-r--r--interp/constrextern.ml3
1 files changed, 3 insertions, 0 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml
index 58869667b8..566752fda0 100644
--- a/interp/constrextern.ml
+++ b/interp/constrextern.ml
@@ -103,9 +103,12 @@ let idopt_of_name = function
| Anonymous -> None
let extern_evar loc n =
+(*
msgerrnl (str
"Warning: existential variable turned into meta-variable during externalization");
CPatVar (loc,(false,make_ident "META" (Some n)))
+*)
+ CEvar (loc,n)
let raw_string_of_ref = function
| ConstRef kn ->