comparison tests/selfRpc.ur @ 1695:385a1b799a74
Handle recursive RPC handlers
| author |
Adam Chlipala <adam@chlipala.net> |
| date |
Sun, 11 Mar 2012 21:20:09 -0400 |
| parents |
|
| children |
|
comparison
equal
deleted
inserted
replaced
| |
1 fun test () = |
| |
2 k <- source <xml/>; |
| |
3 return <xml><button onclick={r <- rpc (test ()); set k r}/></xml> |
| |
4 |
| |
5 fun main () : transaction page = |
| |
6 h <- test (); |
| |
7 return <xml><body>{h}</body></xml> |
