Ur/Web: tests/linksF.ur annotate

Check realloc's return code to prevent segfault on out of memoty condition

author	Sergey Mironov <grrwlf@gmail.com>
date	Sat, 23 Aug 2014 11:59:34 +0000
parents	71bafe66dbe1
children

rev	line source
adamc@119	1 val pC : unit -> xhtml = fn () => <html><body>
adamc@119	2 <h1>Page C</h1>
adamc@119	3 </body></html>
adamc@119	4
adamc@119	5 val pB : unit -> xhtml = fn () => <html><body>
adamc@119	6 <h1>Page B</h1>
adamc@119	7
adamc@119	8 <li> <a link={pC ()}>C</a></li>
adamc@119	9 </body></html>
adamc@119	10
adamc@119	11 val pA : unit -> xhtml = fn () => <html><body>
adamc@119	12 <h1>Page A</h1>
adamc@119	13
adamc@119	14 <li> <a link={pB ()}>B</a></li>
adamc@119	15 <li> <a link={pC ()}>C</a></li>
adamc@119	16 </body></html>
adamc@119	17
adamc@119	18 val main : unit -> xhtml = fn () => <html><body>
adamc@119	19 <h1>Main</h1>
adamc@119	20
adamc@119	21 <li> <a link={pA ()}>A</a></li>
adamc@119	22 <li> <a link={pB ()}>B</a></li>
adamc@119	23 <li> <a link={pC ()}>C</a></li>
adamc@119	24 </body></html>

Mercurial > urweb