Mercurial > urweb

view tests/recReal3.ur @ 1549:355a928871ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Gracefully accept browser's refusal to let us set certain AJAX headers
author Adam Chlipala <adam@chlipala.net>
date Fri, 26 Aug 2011 09:51:38 -0400
parents 71bafe66dbe1
children
line wrap: on
line source
val rec endlessList1 = fn () => <body>
        <li> Buy eggs.</li>
        {endlessList2 ()}
</body>

and endlessList2 = fn () => <body>
        <li> Buy milk.</li>
        {endlessList1 ()}
        {endlessList3 ()}
</body>

and endlessList3 = fn () => <body>
        <li> Buy goat.</li>
</body>

val main = fn () => <html><body>
        {endlessList1 ()}
</body></html>