git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1062 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Jérôme Vouillon 1996-10-08 17:12:42 +00:00
parent 75bed92dab
commit dfaf68d43f
2 changed files with 2 additions and 2 deletions

View File

@ -977,7 +977,7 @@ let report_error = function
| Virtual_class (cl, met) ->
print_string "The class"; print_space ();
print_string cl; print_space ();
print_string "should be virtual: its methods"; print_space ();
print_string "should be virtual: its method"; print_space ();
print_string met; print_space ();
print_string "is undefined"
| Closed_class cl ->

View File

@ -833,7 +833,7 @@ let report_error = function
List.iter
(function (t, t') -> mark_loops t; if t != t' then mark_loops t')
tr2;
trace true (fun _ -> print_string "is not a subtype of") tr1;
trace true (fun _ -> print_string "is not a subtype of type") tr1;
trace false (fun _ -> print_string "is not compatible with type") tr2
| Outside_class ->
print_string "Object duplication outside a class definition."