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/interlingua/ResIna.gf | |
| parent | b7f6393e9f9abaf8202f4adb8db12888202f969d (diff) | |
fixed warnings in present compilation of resource, esp. unreached patterns
Diffstat (limited to 'next-lib/src/interlingua/ResIna.gf')
| -rw-r--r-- | next-lib/src/interlingua/ResIna.gf | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/next-lib/src/interlingua/ResIna.gf b/next-lib/src/interlingua/ResIna.gf index 9eb64bce4..e464db6b4 100644 --- a/next-lib/src/interlingua/ResIna.gf +++ b/next-lib/src/interlingua/ResIna.gf @@ -115,9 +115,9 @@ resource ResIna = ParamX ** open Prelude in { s = table { VInf => crear; VPres => crea; - VPast => crea + "va"; - VFut => crear + "a"; - VCond => crear + "ea"; + VPast => crea + "va"; --# notpresent + VFut => crear + "a"; --# notpresent + VCond => crear + "ea"; --# notpresent VPPart => case crear of { rid + "er" => rid + "ite"; _ => crea + "te" @@ -134,9 +134,9 @@ resource ResIna = ParamX ** open Prelude in { s = case use_irreg of { True => table { VPres => "es"; - VFut => "sera"; - VCond => "serea"; - VPast => "era"; + VFut => "sera"; --# notpresent + VCond => "serea"; --# notpresent + VPast => "era"; --# notpresent form => reg.s!form }; False => reg.s @@ -233,8 +233,9 @@ resource ResIna = ParamX ** open Prelude in { clitics = \\_ => []; rest = \\_ => []; s = table - {Simul => \\t,use_irreg => {fin = (verb!use_irreg).s ! (tenseToVFrom!t); inf = []}; - Anter => \\t,use_irreg => {fin = (haberV!use_irreg).s ! (tenseToVFrom!t); inf = (verb!use_irreg).s!VPPart} + {Simul => \\t,use_irreg => {fin = (verb!use_irreg).s ! (tenseToVFrom!t); inf = []} + ; --# notpresent + Anter => \\t,use_irreg => {fin = (haberV!use_irreg).s ! (tenseToVFrom!t); inf = (verb!use_irreg).s!VPPart} --# notpresent }; prp = (verb!False).s ! VPresPart; inf = (verb!False).s ! VInf; |