Mercurial > urweb
comparison tests/overflow.ur @ 1522:4d0b80dd4c37
Introduce URWEB_STACK_SIZE environment variable (based on a patch by Hao Deng)
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Tue, 02 Aug 2011 14:31:37 -0400 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 1521:001638622c4f | 1522:4d0b80dd4c37 |
|---|---|
| 1 fun makeList n = if n = 0 then [] else 1 :: makeList (n - 1) | |
| 2 | |
| 3 fun doit {N = n} = return <xml><body>{[List.length (makeList (readError n))]}</body></xml> | |
| 4 | |
| 5 fun main () = | |
| 6 return <xml><body> | |
| 7 <form> <textbox{#N}/> <submit action={doit}/> </form> | |
| 8 </body></xml> |