diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-01-01 11:58:00 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-01-01 11:58:00 -0500 |
| commit | ef3b3f91435a9a924771c373dc53547e2ebd4503 (patch) | |
| tree | 8b03e67f5881ca539de1d8c3150e04e740b547a6 /tests/stypes.ur | |
| parent | 1b475375ced4a2482cc90262e32ed42397025cc6 (diff) | |
Included a recursive function in JavaScript
Diffstat (limited to 'tests/stypes.ur')
| -rw-r--r-- | tests/stypes.ur | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/stypes.ur b/tests/stypes.ur index 6c590843..142925e5 100644 --- a/tests/stypes.ur +++ b/tests/stypes.ur @@ -56,6 +56,7 @@ fun main () : transaction page = <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> |