diff options
Diffstat (limited to 'bytecomp/translclass.ml')
| -rw-r--r-- | bytecomp/translclass.ml | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/bytecomp/translclass.ml b/bytecomp/translclass.ml index 7e632ed5e..56b3af249 100644 --- a/bytecomp/translclass.ml +++ b/bytecomp/translclass.ml @@ -315,9 +315,8 @@ let class_stub = (* Error report *) -open Formatmsg +open Format -let report_error = function - Illegal_class_expr -> - print_string - "This kind of class expression is not allowed" +let report_error ppf = function + | Illegal_class_expr -> + fprintf ppf "This kind of class expression is not allowed" |