--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tests/float.ur Tue May 31 07:44:52 2011 -0400 @@ -0,0 +1,6 @@ +fun main () = + let + val x = 0.001 * 50.0 + in + return <xml><body>{[x]}</body></xml> + end