annotate tests/rec3.lac @ 135:b1cfe49ce692

Proper escaping of cdata
author Adam Chlipala <adamc@hcoop.net>
date Thu, 17 Jul 2008 13:33:56 -0400
parents 18299126a343
children
rev   line source
adamc@134 1 val rec main = fn () => <html><body>
adamc@134 2 <a link={aux ()}>See another page</a>
adamc@134 3 </body></html>
adamc@134 4
adamc@134 5 and aux = fn () => <html><body>
adamc@134 6 <h1>The Main Event</h1>
adamc@134 7
adamc@134 8 {auxer ()}
adamc@134 9 </body></html>
adamc@134 10
adamc@134 11 and auxer = fn () => <body>
adamc@134 12 <a link={main ()}>Back to square one</a>
adamc@134 13 </body>