diff options
| author | Jérôme Vouillon <Jerome.Vouillon@pps.jussieu.fr> | 1998-08-17 11:13:47 +0000 |
|---|---|---|
| committer | Jérôme Vouillon <Jerome.Vouillon@pps.jussieu.fr> | 1998-08-17 11:13:47 +0000 |
| commit | f23257809b8dd1f6d14be4a9299a79fe618e2023 (patch) | |
| tree | 093e870c5bd99c49edbbd7f2e873226822c5786b | |
| parent | e02dbb8ffa3885c54a674d3f2c7444873387184e (diff) | |
Bug affichage erreur de sous-typage
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2071 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | typing/printtyp.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/typing/printtyp.ml b/typing/printtyp.ml index 187544657..78dcd0441 100644 --- a/typing/printtyp.ml +++ b/typing/printtyp.ml @@ -776,4 +776,9 @@ let unification_error unif tr txt1 txt2 = close_box () let trace fst txt tr = - trace fst txt (filter_trace tr) + match tr with + (t1, t1')::(t2, t2')::tr -> + trace fst txt ((t1, t1')::(t2, t2')::filter_trace tr) + | _ -> + () + |