diff options
| -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) |