annotate tests/overflow.ur @ 1707:c05e2e4bdde7

Refactor to avoid dependence on recursive mutexes
author Adam Chlipala <adam@chlipala.net>
date Sun, 08 Apr 2012 16:24:16 -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>