diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-28 18:28:19 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-28 18:28:19 +0000 |
| commit | 9e2cfa798fc4fb0d50433f14eb714d8f90a82b88 (patch) | |
| tree | 67252db48b061f35e7bd61c57b997892d4769c32 /toplevel | |
| parent | 54ecb24dc08fe6a8368a1b59924494b41eb1f619 (diff) | |
Documentation de "Set Printing Universes", "Print Universes" (anciennement
"Dump Universes"), "Universe inconsistency", et description brève des univers
algébriques.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9306 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/cerrors.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/cerrors.ml b/toplevel/cerrors.ml index a1ac9f184..9d1d8d184 100644 --- a/toplevel/cerrors.ml +++ b/toplevel/cerrors.ml @@ -67,9 +67,9 @@ let rec explain_exn_default_aux anomaly_string report_fn = function | Invalid_argument s -> hov 0 (anomaly_string () ++ str "uncaught exception Invalid_argument " ++ str (guill s) ++ report_fn ()) | Sys.Break -> - hov 0 (fnl () ++ str "User Interrupt.") + hov 0 (fnl () ++ str "User interrupt.") | Univ.UniverseInconsistency -> - hov 0 (str "Error: Universe Inconsistency.") + hov 0 (str "Error: Universe inconsistency.") | TypeError(ctx,te) -> hov 0 (str "Error:" ++ spc () ++ Himsg.explain_type_error ctx te) | PretypeError(ctx,te) -> |