summaryrefslogtreecommitdiff
path: root/tests/onerror.ur
blob: 9877d8d749fc7355c870f91c362036bdb1b18782 (plain)
1
2
3
4
fun main n =
  case n of
      0 => error <xml>Zero is bad!</xml>
    | _ => return <xml/>