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 | 82580039f3e9a1ca41cc6aed5dfa02f3c944e796 (patch) | |
| tree | 8b03e67f5881ca539de1d8c3150e04e740b547a6 /tests/stypes.ur | |
| parent | 8b3466d0a9c959d05f396c10cd71c7a889bfc0d9 (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> |