Mercurial > urweb

annotate tests/functorMadness.ur @ 1992:7075acda4456

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Parse new bytea output format from Postgres 9.x
author Adam Chlipala <adam@chlipala.net>
date Tue, 25 Feb 2014 16:34:04 -0500
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/>