diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-17 11:20:07 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-17 11:20:07 -0400 |
| commit | d5fd0e7403767670197f0422c99ba62176323624 (patch) | |
| tree | ed1ba9e135ca409c2464256429a62cd9b4bd34f4 /tests | |
| parent | f97f99744f08737c22c83d17b77449c78213b3f8 (diff) | |
Compiled mutual 'val rec'
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/rec.lac | 4 | ||||
| -rw-r--r-- | tests/rec2.lac | 7 |
2 files changed, 9 insertions, 2 deletions
diff --git a/tests/rec.lac b/tests/rec.lac index e86b832a..6131337e 100644 --- a/tests/rec.lac +++ b/tests/rec.lac @@ -1,3 +1,3 @@ -val rec looper = fn () => <html><body> - <a link={looper ()}>Ride again!</a> +val rec main = fn () => <html><body> + <a link={main ()}>Ride again!</a> </body></html> diff --git a/tests/rec2.lac b/tests/rec2.lac new file mode 100644 index 00000000..e5f208c9 --- /dev/null +++ b/tests/rec2.lac @@ -0,0 +1,7 @@ +val rec main = fn () => <html><body> + <a link={aux ()}>See another page</a> +</body></html> + +and aux = fn () => <html><body> + <a link={main ()}>Back to square one</a> +</body></html> |