Mercurial > urweb

annotate tests/functorMadness.ur @ 2044:42ae25a354f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Retweak the last tweak to allow type inference to succeed in a strict superset of the places where it used to succeed
author Adam Chlipala <adam@chlipala.net>
date Tue, 29 Jul 2014 14:46:06 -0400
parents 210fb3dfc483
children
rev   line source
adam@1989 1 functor F(M : sig end) = struct
adam@1989 2 fun f () = f ()
adam@1989 3
adam@1989 4 functor G(M : sig end) = struct
adam@1989 5 fun g () = f ()
adam@1989 6 end
adam@1989 7 end
adam@1989 8
adam@1989 9 structure M1 = F(struct end)
adam@1989 10 structure M2 = F(struct end)
adam@1989 11
adam@1989 12 structure N1 = M1.G(struct end)
adam@1989 13 structure N2 = M2.G(struct end)
adam@1989 14
adam@1989 15 fun main () : transaction page =
adam@1989 16 return (N1.g ());
adam@1989 17 return (N2.g ());
adam@1989 18 return <xml/>