annotate tests/onerror.ur @ 1535:27190faa36a3

Handle case where shakeExp can remove datatype.
author Karn Kallio <kkallio@eka>
date Sat, 13 Aug 2011 00:07:28 -0430
parents b4480a56cab7
children
rev   line source
adam@1294 1 fun main n =
adam@1294 2 case n of
adam@1294 3 0 => error <xml>Zero is bad!</xml>
adam@1294 4 | _ => return <xml/>