Mercurial > urweb

diff tests/nest.ur @ 450:07f6576aeb0a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Wrapping works in Blog
author Adam Chlipala <adamc@hcoop.net>
date Sat, 01 Nov 2008 16:46:16 -0400
parents 85819353a84f
children 787d4931fb07
line wrap: on
line diff
--- a/tests/nest.ur	Sat Nov 01 16:08:39 2008 -0400
+++ b/tests/nest.ur	Sat Nov 01 16:46:16 2008 -0400
@@ -25,7 +25,24 @@
                 Some r => return <xml><body><a link={page1 ()}>{[r]}</a></body></xml>
               | _ => return <xml>Error</xml>
     in
-        page1
+        page2
+    end
+
+fun f (x : int) =
+    let
+        fun page1 () = return <xml><body>
+          <a link={page2 ()}>{[x]}</a>
+        </body></xml>
+
+        and page2 () =
+            case Some True of
+                Some r => return <xml><body><a link={page1 ()}>{[r]}</a></body></xml>
+              | _ => return <xml><body><a link={page3 ()}>!!</a></body></xml>
+
+        and page3 () = return <xml><body><a link={page2 ()}>!</a><a link={page1 ()}>!</a>
+          <a link={page3 ()}>!</a></body></xml>
+    in
+        page3
     end
 
 datatype list t = Nil | Cons of t * list t
@@ -39,3 +56,4 @@
     in
         length' ls 0
     end
+