annotate tests/overflow.ur @ 1850:30c56e3bcf47

Plugging some gaps in the manual
author Adam Chlipala <adam@chlipala.net>
date Sun, 21 Apr 2013 10:17:43 -0400
parents 4d0b80dd4c37
children
rev   line source
adam@1522 1 fun makeList n = if n = 0 then [] else 1 :: makeList (n - 1)
adam@1522 2
adam@1522 3 fun doit {N = n} = return <xml><body>{[List.length (makeList (readError n))]}</body></xml>
adam@1522 4
adam@1522 5 fun main () =
adam@1522 6 return <xml><body>
adam@1522 7 <form> <textbox{#N}/> <submit action={doit}/> </form>
adam@1522 8 </body></xml>