diff --git a/src/somali/NounSom.gf b/src/somali/NounSom.gf index 5578c774a..20fd9719a 100644 --- a/src/somali/NounSom.gf +++ b/src/somali/NounSom.gf @@ -56,15 +56,15 @@ concrete NounSom of Noun = CatSom ** open ResSom, Prelude in { UsePron pron = pron ** {st = Definite} ; -- : Predet -> NP -> NP ; -- only the man - PredetNP predet np = + PredetNP predet np = let qnt = PossPron (pronTable ! np.a) ; det = qnt.shortPoss ! predet.da ; predetS : Str = case predet.isPoss of { True => glue predet.s det ; - False => predet.s + False => predet.s } ; in np ** { - s = \\c => + s = \\c => case of { => np.empty ++ predetS ; _ => np.s ! c ++ predetS} ; diff --git a/src/somali/ResSom.gf b/src/somali/ResSom.gf index eaec6dfe2..0b6099c01 100644 --- a/src/somali/ResSom.gf +++ b/src/somali/ResSom.gf @@ -46,12 +46,16 @@ oper magacya + "da" => magacya ; wiila + "sha" => wiila ; _ => wiilal} ; - bisadi : Str = case gender of - { Fem => case wiil of { _ + #c => wiil+"i" ; _ => wiil} ; - Masc => wiil } ; - bisadood : Str = case gender of - { Fem => case wiilal of {_ + "o" => wiilal+"od" ; _ => wiil} ; - Masc => wiil } + bisadi : Str = case gender of { + Fem => case wiil of { + _ + #c => wiil+"i" ; + _ => wiil } ; + Masc => wiil } ; + bisadood : Str = case gender of { + Fem => case wiilal of { + _ + "o" => wiilal+"od" ; + _ => wiil } ; + Masc => wiil } } ; -------------------------