diff 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
line wrap: on
line diff
--- a/tests/utest.ur	Thu Jan 06 16:46:09 2011 -0500
+++ b/tests/utest.ur	Sat Jan 08 18:47:27 2011 -0500
@@ -18,6 +18,8 @@
                                     <tr> <th class={inputs}>Name:</th> <td><ctextbox source={r.Nam}/></td> </tr>
                                   </xml>
 
+                                  fun ready _ = return True
+
                                   fun tabulate r =
                                       n <- signal r.Nam;
                                       return {Nam = n}