diff options
| author | Jérôme Vouillon <Jerome.Vouillon@pps.jussieu.fr> | 1998-11-30 19:06:52 +0000 |
|---|---|---|
| committer | Jérôme Vouillon <Jerome.Vouillon@pps.jussieu.fr> | 1998-11-30 19:06:52 +0000 |
| commit | f4e80491cf0b70ffd3ceea7f494f012efeb8d4d7 (patch) | |
| tree | c18e68a13fab84ab4c8b0a31ebd27244434790d3 | |
| parent | 967244f4a141ed6a469e28bb6e9414dfebac2de4 (diff) | |
Bug d'affichage des erreurs de sous-typage
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2206 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | typing/printtyp.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/typing/printtyp.ml b/typing/printtyp.ml index 9b38ceb89..fc0d3666f 100644 --- a/typing/printtyp.ml +++ b/typing/printtyp.ml @@ -774,9 +774,9 @@ let unification_error unif tr txt1 txt2 = close_box () let trace fst txt tr = - match tr with - (t1, t1')::(t2, t2')::tr -> +(* match tr with + (t1, t1')::(t2, t2')::tr -> *) trace fst txt (filter_trace tr) - | _ -> - () +(* | _ -> + ()*) |