view tests/num.ur @ 515:4929cf86bc03

Stop using redundant Defunc pass
author Adam Chlipala <adamc@hcoop.net>
date Thu, 27 Nov 2008 10:46:45 -0500
parents fe8f75f7e130
children
line wrap: on
line source
fun main () : transaction page = return <xml><body>
  {[ -1 ]}, {[ 1 + 1 ]}, {[ 9 - 3 ]}, {[ 9 * 3 ]}, {[ 9 / 3 ]}, {[ 9 % 3 ]}<br/>
  {[ -1.1 ]}, {[ 1.0 + 1.1 ]}, {[ 9.1 - 3.0 ]}, {[ 9.1 * 3.0 ]},
  {[ 9.1 / 3.0 ]}, {[ 9.1 % 3.0 ]}<br/>
</body></xml>