fixed warnings in present compilation of resource, esp. unreached patterns

This commit is contained in:
aarne
2009-06-22 14:30:55 +00:00
parent b7f6393e9f
commit f8fdaa7acc
18 changed files with 198 additions and 65 deletions

View File

@@ -273,7 +273,7 @@ oper
case p of {
Neg => "kö" ; -- eikö tule
_ => case a of {
Anter => "ko" ; -- onko mennyt
Anter => "ko" ; -- onko mennyt --# notpresent
_ => vp.qp -- tuleeko, meneekö
}
} ;