diff tests/let.ur @ 447:b77863cd0be2

Elaborating 'let'
author Adam Chlipala <adamc@hcoop.net>
date Sat, 01 Nov 2008 11:17:29 -0400
parents 86c063fedc4d
children
line wrap: on
line diff
--- a/tests/let.ur	Sat Nov 01 10:47:10 2008 -0400
+++ b/tests/let.ur	Sat Nov 01 11:17:29 2008 -0400
@@ -1,6 +1,8 @@
 fun main () : transaction page =
     let
         val x = 1
+        val y = "Hello"
+        val z = 3.45
     in
-        return <xml>{[x]}</xml>
+        return <xml>{[x]}, {[y]}, {[z]}</xml>
     end