fixes in Swedish

This commit is contained in:
kr.angelov
2013-12-18 11:22:56 +00:00
parent 87760bb843
commit ad79e7144c
3 changed files with 10 additions and 7 deletions

View File

@@ -357,9 +357,12 @@ oper
mkN : (museum,museet,museer,museerna : Str) -> N = mk4N ;
mkN : (museum,museet,museer,museerna : Str) -> Gender -> N = mk5N ;
mkN : (regering, makt : N) -> N = \a,b -> lin N {
s = \\n,d,c => b.s ! n ! d ! c ;
s = \\n,d,c => a.co + b.s ! n ! d ! c ;
g = b.g ;
co = ""
co = case b.co of {
_ + "s" => a.co + b.co ;
co => a.co + co + "s"
}
} ;
} ;