diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2000-08-11 03:19:51 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2000-08-11 03:19:51 +0000 |
| commit | 3ad649f365636b4f39e26d96b23eb8ddfc4101d2 (patch) | |
| tree | de00817291fbd9956cfb68bbe6d117e0577c7404 | |
| parent | 17805c9bd4fb48572474b609b524ebd939926731 (diff) | |
| download | ocaml-3ad649f365636b4f39e26d96b23eb8ddfc4101d2.tar.gz | |
imprime les traces meme sans expansion, pour les erreurs de sous-typage
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3272 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | typing/printtyp.ml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/typing/printtyp.ml b/typing/printtyp.ml index f815e96fbe..9d3e83bf42 100644 --- a/typing/printtyp.ml +++ b/typing/printtyp.ml @@ -731,9 +731,11 @@ let report_unification_error ppf tr txt1 txt2 = let trace fst txt ppf tr = print_labels := not !Clflags.classic; - try - trace fst txt ppf (filter_trace tr); - print_labels := true + try match tr with + t1 :: t2 :: tr -> + trace fst txt ppf (t1 :: t2 :: filter_trace tr); + print_labels := true + | _ -> () with exn -> print_labels := true; raise exn |