comparison tests/naughty.ur @ 1633:deeeb036c8ed

Treat [naughtyDebug] as pure for optimization purposes
author Adam Chlipala <adam@chlipala.net>
date Mon, 05 Dec 2011 10:43:06 -0500
parents
children
comparison
equal deleted inserted replaced
1632:4682b312e9d5 1633:deeeb036c8ed
1 fun main () : transaction page =
2 if naughtyDebug "hello" = 0 then
3 return <xml><body></body></xml>
4 else
5 error <xml>Uhoh!</xml>
6
7 (*fun main () : transaction page =
8 let
9 val a = naughtyDebug ""
10 in
11 return <xml><body></body></xml>
12 end*)