diff options
Diffstat (limited to 'toplevel/fhimsg.ml')
| -rw-r--r-- | toplevel/fhimsg.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/fhimsg.ml b/toplevel/fhimsg.ml index dd5160f76..91e77f495 100644 --- a/toplevel/fhimsg.ml +++ b/toplevel/fhimsg.ml @@ -231,7 +231,7 @@ let explain_ill_formed_rec_body k ctx err names i vdefs = | RecCallInCasePred c -> (str "Not allowed recursive call in the type of cases in") | NotGuardedForm c -> - str "Sub-expression " ++ prterm_env ctx c ++ spc() ++ + str "Sub-expression " ++ pr_lconstr_env ctx c ++ spc() ++ str "not in guarded form (should be a constructor, Cases or CoFix)" in let pvd = P.pr_term k ctx vdefs.(i) in |