some fixes in DictionarySwe ; in ParadigmsSwe, a compounding function mkN : Str -> N -> N

This commit is contained in:
aarne
2015-01-10 17:50:54 +00:00
parent 45b475e9a2
commit 5e70b381bc
2 changed files with 12 additions and 2 deletions

View File

@@ -101,6 +101,8 @@ oper
-- such as "fotboll", just given as one argument. But compound nouns can be formed from their parts as well,
mkN : (regering, makt : N) -> N ; -- regeringsmakt, using the co form of regering
mkN : Str -> N -> N ; -- över + flöde
} ;
-- The default compound form can be changed:
@@ -365,6 +367,14 @@ oper
co => a.co + co + "s"
}
} ;
mkN : Str -> N -> N = \a,b -> lin N {
s = \\n,d,c => a + b.s ! n ! d ! c ;
g = b.g ;
co = case b.co of {
_ + "s" => a + b.co ;
co => a + co + "s"
}
} ;
} ;
-- The default compound form can be changed: