diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-08-03 13:30:27 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-03 13:30:27 -0400 |
commit | b6123d25d202d3cbe1f12d24dec129a90d5051ec (patch) | |
tree | 5537d58d7dba623127804b35813d7c0ec673f8b9 /tests | |
parent | 6314b4c27a14576b356258dad74607168135cb51 (diff) |
Optimizing 'case' in Mono_reduce
Diffstat (limited to 'tests')
-rw-r--r-- | tests/caseMod.lac | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/caseMod.lac b/tests/caseMod.lac index 49bfdca8..0a870160 100644 --- a/tests/caseMod.lac +++ b/tests/caseMod.lac @@ -24,8 +24,11 @@ val toString = fn x => | C B => "C B" | D => "D" -val page = fn x => <html><body> - {cdata (toString x)} +val rec page = fn x => <html><body> + {cdata (toString x)}<br/> + <br/> + + <a link={page x}>Again!</a> </body></html> val main : unit -> page = fn () => <html><body> |