diff --git a/src/finnish/ResFin.gf b/src/finnish/ResFin.gf index aac5568a0..61d36748c 100644 --- a/src/finnish/ResFin.gf +++ b/src/finnish/ResFin.gf @@ -30,7 +30,7 @@ resource ResFin = ParamX ** open Prelude in { --- These cases are possible for subjects. - SubjCase = SCNom | SCGen | SCPart | SCElat | SCAdess | SCAblat ; + SubjCase = SCNom | SCGen | SCPart | SCIness | SCElat | SCAdess | SCAblat ; oper appSubjCase : SubjCase -> ResFin.NP -> Str = \sc,np -> np.s ! subjcase2npform sc ; @@ -39,6 +39,7 @@ oper SCNom => NPCase Nom ; SCGen => NPCase Gen ; SCPart => NPCase Part ; + SCIness => NPCase Iness ; SCElat => NPCase Elat ; SCAdess => NPCase Adess ; SCAblat => NPCase Ablat @@ -47,6 +48,7 @@ oper npform2subjcase : NPForm -> SubjCase = \sc -> case sc of { NPCase Gen => SCGen ; NPCase Part => SCPart ; + NPCase Iness => SCIness ; NPCase Elat => SCElat ; NPCase Adess => SCAdess ; NPCase Ablat => SCAblat ;