Mercurial > urweb
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*) |