comparison tests/utest.ur @ 21:354dae3008de

Fix embarrassing bug that deleted sessions that were too new, rather than old
author Adam Chlipala <adam@chlipala.net>
date Sat, 08 Jan 2011 18:47:27 -0500
parents 5e03668972ea
children e5df3d3554d3
comparison
equal deleted inserted replaced
20:2342d9baa0df 21:354dae3008de
15 return {Nam = n} 15 return {Nam = n}
16 16
17 fun render r = <xml> 17 fun render r = <xml>
18 <tr> <th class={inputs}>Name:</th> <td><ctextbox source={r.Nam}/></td> </tr> 18 <tr> <th class={inputs}>Name:</th> <td><ctextbox source={r.Nam}/></td> </tr>
19 </xml> 19 </xml>
20
21 fun ready _ = return True
20 22
21 fun tabulate r = 23 fun tabulate r =
22 n <- signal r.Nam; 24 n <- signal r.Nam;
23 return {Nam = n} 25 return {Nam = n}
24 26