Mercurial > urweb
diff tests/stypes.ur @ 589:102e81d975e3
Included a recursive function in JavaScript
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 01 Jan 2009 11:58:00 -0500 |
parents | 5803b4f041cb |
children |
line wrap: on
line diff
--- a/tests/stypes.ur Thu Jan 01 11:26:34 2009 -0500 +++ b/tests/stypes.ur Thu Jan 01 11:58:00 2009 -0500 @@ -56,6 +56,7 @@ <a onclick={set sColor White}>White</a> <a onclick={set sColor Blue}>Blue</a><br/> - <dyn signal={ls <- signal sList; return <xml>{[isNil ls]}</xml>}/> + <dyn signal={ls <- signal sList; return <xml>{[isNil ls]}</xml>}/>; + <dyn signal={ls <- signal sList; return <xml>{delist ls}</xml>}/> <a onclick={set sList (Cons ("A", Cons ("B", Nil)))}>Change</a><br/> </body></xml>