diff options
author | Stephane Glondu <steph@glondu.net> | 2008-08-08 13:18:42 +0200 |
---|---|---|
committer | Stephane Glondu <steph@glondu.net> | 2008-08-08 13:18:42 +0200 |
commit | 870075f34dd9fa5792bfbf413afd3b96f17e76a0 (patch) | |
tree | 0c647056de1832cf1dba5ba58758b9121418e4be /toplevel/whelp.ml4 | |
parent | a0cfa4f118023d35b767a999d5a2ac4b082857b4 (diff) |
Imported Upstream version 8.2~beta4+dfsgupstream/8.2.beta4+dfsg
Diffstat (limited to 'toplevel/whelp.ml4')
-rw-r--r-- | toplevel/whelp.ml4 | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/toplevel/whelp.ml4 b/toplevel/whelp.ml4 index 58703c8e..62aaa303 100644 --- a/toplevel/whelp.ml4 +++ b/toplevel/whelp.ml4 @@ -8,7 +8,7 @@ (*i camlp4deps: "parsing/grammar.cma" i*) -(* $Id: whelp.ml4 10904 2008-05-08 16:31:26Z herbelin $ *) +(* $Id: whelp.ml4 11309 2008-08-06 10:30:35Z herbelin $ *) open Flags open Pp @@ -80,7 +80,9 @@ let uri_of_dirpath dir = let error_whelp_unknown_reference ref = let qid = Nametab.shortest_qualid_of_global Idset.empty ref in - error ("Definitions of the current session not supported in Whelp: " ^ string_of_qualid qid) + errorlabstrm "" + (strbrk "Definitions of the current session, like " ++ pr_qualid qid ++ + strbrk ", are not supported in Whelp.") let uri_of_repr_kn ref (mp,dir,l) = match mp with @@ -104,7 +106,7 @@ let uri_of_ind_pointer l = let uri_of_global ref = match ref with - | VarRef id -> error ("Unknown Whelp reference: "^(string_of_id id)) + | VarRef id -> error ("Unknown Whelp reference: "^(string_of_id id)^".") | ConstRef cst -> uri_of_repr_kn ref (repr_con cst); url_string ".con" | IndRef (kn,i) -> @@ -165,7 +167,7 @@ let rec uri_of_constr c = | RCast (_,c, CastConv (_,t)) -> uri_of_constr c; url_string ":"; uri_of_constr t | RRec _ | RIf _ | RLetTuple _ | RCases _ -> - error "Whelp does not support pattern-matching and (co-)fixpoint" + error "Whelp does not support pattern-matching and (co-)fixpoint." | RVar _ | RRef _ | RHole _ | REvar _ | RSort _ | RCast (_,_, CastCoerce) -> anomaly "Written w/o parenthesis" | RPatVar _ | RDynamic _ -> |