Ptyp_class a une rangee

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8437 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2007-10-18 03:58:41 +00:00 · 2007-10-18 03:58:41 +00:00 · 8eb8c5bc27
parent 122074d47c
commit 8eb8c5bc27
1 changed files with 1 additions and 1 deletions
--- a/typing/typedecl.ml
+++ b/typing/typedecl.ml
@ -81,7 +81,7 @@ let is_float env ty =
 (* Determine if a type definition defines a fixed type. (PW) *)
 let is_fixed_type sd =
  (match sd.ptype_manifest with
-   | Some { ptyp_desc = (Ptyp_variant _ | Ptyp_object _); } -> true
+   | Some { ptyp_desc = (Ptyp_variant _|Ptyp_object _|Ptyp_class _); } -> true
   | _ -> false) &&
  sd.ptype_kind = Ptype_abstract &&
  sd.ptype_private = Private