annotate tests/overflow.ur @ 2237:e79ef5792c8b

Fix bug in redundancy checking and use finer formula for UPDATE statements.
author Ziv Scully <ziv@mit.edu>
date Sun, 05 Jul 2015 23:57:28 -0700
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>