Mercurial > urweb

annotate tests/functorMadness.ur @ 2278:b7615e0ac4b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bug in and clean up free path code.
author Ziv Scully <ziv@mit.edu>
date Tue, 10 Nov 2015 12:35:00 -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/>