diff options
| author | Xavier Clerc <xavier.clerc@inria.fr> | 2011-09-08 08:34:43 +0000 |
|---|---|---|
| committer | Xavier Clerc <xavier.clerc@inria.fr> | 2011-09-08 08:34:43 +0000 |
| commit | cb7818e6dedeafd57c362f7616fb0bb4a54d1c8b (patch) | |
| tree | e314b375310bd2e29578b04303b9a1549e104e16 /stdlib/printexc.ml | |
| parent | 6b6e39a3f3ee578305b9e77ec63db93736fef3b4 (diff) | |
PR#5344: some predifined exceptions need special printing
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@11187 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/printexc.ml')
| -rw-r--r-- | stdlib/printexc.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/stdlib/printexc.ml b/stdlib/printexc.ml index 6f71b497f..062decb85 100644 --- a/stdlib/printexc.ml +++ b/stdlib/printexc.ml @@ -56,6 +56,8 @@ let to_string x = sprintf locfmt file line char (char+5) "Pattern matching failed" | Assert_failure(file, line, char) -> sprintf locfmt file line char (char+6) "Assertion failed" + | Undefined_recursive_module(file, line, char) -> + sprintf locfmt file line char (char+6) "Undefined recursive module" | _ -> let x = Obj.repr x in let constructor = (Obj.magic(Obj.field (Obj.field x 0) 0) : string) in |