adam@1633: fun main () : transaction page =
adam@1633: if naughtyDebug "hello" = 0 then
adam@1633: return
adam@1633: else
adam@1633: error Uhoh!
adam@1633:
adam@1633: (*fun main () : transaction page =
adam@1633: let
adam@1633: val a = naughtyDebug ""
adam@1633: in
adam@1633: return
adam@1633: end*)