Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

MAJ d'un commentaire 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5649 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2003-07-03 14:35:35 +00:00
parent 12690ec2d8
commit 661910856d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
typing/typedecl.ml
View File

@ -301,8 +301,8 @@ let check_recursion env loc path decl to_check =
Parameters_differ(cpath, ty, Ctype.newconstr path args))) Parameters_differ(cpath, ty, Ctype.newconstr path args)))
end end
(* Attempt to expand a type abbreviation if: (* Attempt to expand a type abbreviation if:
1- it belongs to one of the recursively-defined modules 1- [to_check path'] holds
(otherwise its expansion cannot involve [path]); (otherwise the expansion cannot involve [path]);
2- we haven't expanded this type constructor before 2- we haven't expanded this type constructor before
(otherwise we could loop if [path'] is itself (otherwise we could loop if [path'] is itself
a non-regular abbreviation). *) a non-regular abbreviation). *)