diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-03-31 18:21:20 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-03-31 18:21:20 +0000 |
| commit | 8d524ae3e9b2e2394bcfc0b47d4a8eba969161c4 (patch) | |
| tree | 350511f109f21a99b11b1ba55ff56d226f80a63a /interp | |
| parent | 3b681990a903e3e71c3bea663685482ec170d558 (diff) | |
Amendement impression evar pour affichage des Meta par 'info'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8675 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrextern.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index fcdd0a786..2fe967153 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -638,6 +638,8 @@ let rec extern inctx scopes vars r = | RVar (loc,id) -> CRef (Ident (loc,id)) + | REvar (loc,n,None) when !print_meta_as_hole -> CHole loc + | REvar (loc,n,_) -> (* we drop args *) extern_evar loc n | RPatVar (loc,n) -> if !print_meta_as_hole then CHole loc else CPatVar (loc,n) |