annotate tests/functorMadness.ur @ 2069:262dd74df39c

Replace common "if(!quiet) printf(...)" pattern with a macro
author Sergey Mironov <grrwlf@gmail.com>
date Tue, 02 Sep 2014 17:36:14 +0000
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/>