comparison tests/transact.ur @ 1327:1cc67fdac4d3

New argument to transactional free functions, to specify whether we are about to retry
author Adam Chlipala <adam@chlipala.net>
date Sat, 04 Dec 2010 11:15:20 -0500
parents
children
comparison
equal deleted inserted replaced
1326:d91f84599693 1327:1cc67fdac4d3
1 fun listHell n =
2 if n <= 0 then
3 []
4 else
5 n :: List.append (listHell (n-1)) (listHell (n-1))
6
7 fun doit r =
8 Transactional.foo;
9 return <xml>{[listHell (readError r.N)]}</xml>
10
11 fun main () = return <xml><body>
12 <form> <textbox{#N}/> <submit action={doit}/> </form>
13 </body></xml>