MAJ d'un commentaire

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5649 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2003-07-03 14:35:35 +00:00 · 2003-07-03 14:35:35 +00:00 · 661910856d
parent 12690ec2d8
commit 661910856d
1 changed files with 2 additions and 2 deletions
--- a/typing/typedecl.ml
+++ b/typing/typedecl.ml
@ -301,8 +301,8 @@ let check_recursion env loc path decl to_check =
                     Parameters_differ(cpath, ty, Ctype.newconstr path args)))
          end
          (* Attempt to expand a type abbreviation if:
-              1- it belongs to one of the recursively-defined modules
-                 (otherwise its expansion cannot involve [path]);
+              1- [to_check path'] holds
+                 (otherwise the expansion cannot involve [path]);
              2- we haven't expanded this type constructor before
                 (otherwise we could loop if [path'] is itself 
                 a non-regular abbreviation). *)