diff options
| author | herbelin | 2003-09-06 19:12:08 +0000 |
|---|---|---|
| committer | herbelin | 2003-09-06 19:12:08 +0000 |
| commit | 95d4aef96fb7b490b188afe66e8345428e9706ee (patch) | |
| tree | 3990c1a6bfce095e941d756df5387b63e86e8353 /interp/constrextern.ml | |
| parent | ef41c3d1f93e2fa82cbaa97adaa03852e8fcd7b8 (diff) | |
Paramétrisation vis à vis de existential_key
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4321 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/constrextern.ml')
| -rw-r--r-- | interp/constrextern.ml | 3 |
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 -> |