diff options
| author | aarne <aarne@chalmers.se> | 2009-06-22 14:30:55 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-06-22 14:30:55 +0000 |
| commit | f8fdaa7accef4c6935e5ecdf9ef292b1f7b2901b (patch) | |
| tree | abef31c1b21ad7bbfa891083130496d72f80dab4 /next-lib/src/russian/SentenceRus.gf | |
| parent | b7f6393e9f9abaf8202f4adb8db12888202f969d (diff) | |
fixed warnings in present compilation of resource, esp. unreached patterns
Diffstat (limited to 'next-lib/src/russian/SentenceRus.gf')
| -rw-r--r-- | next-lib/src/russian/SentenceRus.gf | 24 |
1 files changed, 16 insertions, 8 deletions
diff --git a/next-lib/src/russian/SentenceRus.gf b/next-lib/src/russian/SentenceRus.gf index 0c15b3d5d..79d691ccd 100644 --- a/next-lib/src/russian/SentenceRus.gf +++ b/next-lib/src/russian/SentenceRus.gf @@ -97,24 +97,32 @@ concrete SentenceRus of Sentence = CatRus ** open Prelude, ResRus in { UseCl t p cl = {s = case t.t of { Cond => cl.s! p.p ! ClCondit ; --# notpresent - Pres => cl.s! p.p ! ClIndic Present t.a ; ---- AR work-around 13/12/2007 - _ => cl.s! p.p ! ClIndic (getTense t.t) t.a}}; + Pres => cl.s! p.p ! ClIndic Present t.a ---- AR work-around 13/12/2007 + ; --# notpresent + _ => cl.s! p.p ! ClIndic (getTense t.t) t.a --# notpresent + } + }; UseQCl t p qcl= {s = case t.t of { Cond => qcl.s! p.p ! ClCondit ; --# notpresent - Pres => qcl.s! p.p ! ClIndic Present t.a ; - _ => qcl.s!p.p! ClIndic (getTense t.t) t.a }}; + Pres => qcl.s! p.p ! ClIndic Present t.a + ; --# notpresent + _ => qcl.s!p.p! ClIndic (getTense t.t) t.a --# notpresent + }}; UseRCl t p rcl ={s = \\gn,c,anim => case t.t of { Cond => [", "] ++ rcl.s! p.p ! ClCondit ! gn !c !anim ; --# notpresent - Pres => [", "] ++ rcl.s! p.p ! ClIndic Present t.a !gn !c !anim; - _ => [", "] ++ rcl.s! p.p ! ClIndic (getTense t.t) t.a !gn !c !anim}}; + Pres => [", "] ++ rcl.s! p.p ! ClIndic Present t.a !gn !c !anim + ; --# notpresent + _ => [", "] ++ rcl.s! p.p ! ClIndic (getTense t.t) t.a !gn !c !anim --# notpresent + }}; UseSlash t p cl = { s = case t.t of { Cond => cl.s! p.p ! ClCondit ; --# notpresent - Pres => cl.s! p.p ! ClIndic Present t.a ; - _ => cl.s! p.p ! ClIndic (getTense t.t) t.a + Pres => cl.s! p.p ! ClIndic Present t.a + ; --# notpresent + _ => cl.s! p.p ! ClIndic (getTense t.t) t.a --# notpresent } ; s2 = cl.s2 ; c = cl.c |