Almost have that nested save function compiling

1 files changed, 16 insertions, 0 deletions

diff --git a/tests/blog.ur b/tests/blog.ur
new file mode 100644
index 00000000..a3a06cb6
--- /dev/null
+++ b/tests/blog.ur
@@ -0,0 +1,16 @@
+fun main wrap =
+    let
+        fun edit id =
+            let
+                val r = 0
+                fun save () = <xml/>
+            in
+                wrap (save ())
+            end
+    in
+        edit 0
+    end
+
+fun wrap (inside : xbody) = return <xml/>
+
+val main () = main wrap