diff options
Diffstat (limited to 'toplevel/command.ml')
| -rw-r--r-- | toplevel/command.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 2d82b93523..6866bc69e2 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -905,7 +905,9 @@ let interp_recursive isfix fixl notations = if Flags.is_program_mode () then let sort = Retyping.get_type_of env !evdref t in let fixprot = - try mkApp (delayed_force fix_proto, [|sort; t|]) + try + let app = mkApp (delayed_force fix_proto, [|sort; t|]) in + Typing.solve_evars env evdref app with e when Errors.noncritical e -> t in (id,None,fixprot) :: env' |