diff options
| author |  Samuel Mimram <smimram@debian.org> | 2006-04-28 14:59:16 +0000 |
|---|---|---|
| committer | Samuel Mimram <smimram@debian.org> | 2006-04-28 14:59:16 +0000 |
| commit | 3ef7797ef6fc605dfafb32523261fe1b023aeecb (patch) | |
| tree | ad89c6bb57ceee608fcba2bb3435b74e0f57919e /toplevel/fhimsg.ml | |
| parent | 018ee3b0c2be79eb81b1f65c3f3fa142d24129c8 (diff) | |
Imported Upstream version 8.0pl3+8.1alphaupstream/8.0pl3+8.1alpha
Diffstat (limited to 'toplevel/fhimsg.ml')
| -rw-r--r-- | toplevel/fhimsg.ml | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/toplevel/fhimsg.ml b/toplevel/fhimsg.ml index b5185cd3..4ef5d5fd 100644 --- a/toplevel/fhimsg.ml +++ b/toplevel/fhimsg.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: fhimsg.ml,v 1.19.2.1 2004/07/16 19:31:48 herbelin Exp $ *) +(* $Id: fhimsg.ml 7837 2006-01-11 09:47:32Z herbelin $ *) open Pp open Util @@ -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 @@ -278,14 +278,7 @@ let explain_ml_case k ctx mes c ct br brt = hov 0 (str "In ML case expression on " ++ pc ++ ws 1 ++ cut () ++ str "of type" ++ ws 1 ++ pct ++ ws 1 ++ cut () ++ str "which is an inductive predicate." ++ fnl () ++ expln) -(* -let explain_cant_find_case_type loc k ctx c = - let pe = P.pr_term k ctx c in - Ast.user_err_loc - (loc,"pretype", - hov 3 (str "Cannot infer type of whole Case expression on" ++ - ws 1 ++ pe)) -*) + let explain_type_error k ctx = function | UnboundRel n -> explain_unbound_rel k ctx n |