diff options
| author | herbelin | 2006-01-04 20:29:24 +0000 |
|---|---|---|
| committer | herbelin | 2006-01-04 20:29:24 +0000 |
| commit | 440d6fbe82fd4f4400fde9640b1a0e9bb582fe61 (patch) | |
| tree | 922f5f3c1562e8bc814dbc5f297183464fecb79a | |
| parent | 90963f51d1a853040f23370d7c911502fa9740da (diff) | |
Suppression des coercions non seulement avant l'affichage des notations mais aussi avant l'affichage des notations primitives
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7788 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | interp/constrextern.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index a8a6b862e8..ffd598cd1a 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -586,13 +586,11 @@ let rec share_fix_binders n rbl ty def = (* mapping rawterms to constr_expr *) let rec extern inctx scopes vars r = + let r = remove_coercions inctx r in try if !Options.raw_print or !print_no_symbol then raise No_match; extern_prim_token (loc_of_rawconstr r) scopes (uninterp_prim_token r) with No_match -> - - let r = remove_coercions inctx r in - try if !Options.raw_print or !print_no_symbol then raise No_match; extern_symbol scopes vars r (uninterp_notations r) |