annotate tests/id.ur @ 1968:2c075e875a47

Fix a subtle renaming problem in elaborating functor applications
author Adam Chlipala <adam@chlipala.net>
date Fri, 14 Feb 2014 15:11:22 -0500
parents 6f2f74cc4ead
children
rev   line source
adam@1703 1 fun main () : transaction page =
adam@1703 2 id1 <- fresh;
adam@1703 3 id2 <- fresh;
adam@1703 4 x <- source <xml/>;
adam@1703 5 return <xml><body>
adam@1703 6 <span id={id1}>Hi!</span>
adam@1703 7 <span id={id2}>Ho!</span>
adam@1703 8 <dyn signal={signal x}/>
adam@1703 9 <button value="Set" onclick={id <- fresh; set x <xml><span id={id}>He!</span></xml>}/>
adam@1703 10 <button value="Show" onclick={x <- get x; alert (show x)}/>
adam@1703 11 </body></xml>