(Hun) Add 9-argument worst case noun constructor

This commit is contained in:
Inari Listenmaa
2020-04-28 12:32:10 +02:00
parent 851a0dedc8
commit 4eb210da05
3 changed files with 39 additions and 9 deletions
+3
View File
@@ -135,6 +135,9 @@ oper
mkN : (x1,_,_,x4 : Str) -> N =
\n,a,pln,possd -> lin N (regNoun4 n a pln possd) ;
mkN : (x1,_,_,_,_,_,_,_,x9 : Str) -> N =
\a,b,c,d,e,f,g,h,i -> lin N (worstCaseNoun a b c d e f g h i (getHarm a)) ;
mkN : Str -> Harmony -> N =
\s,h -> lin N (mkNounHarm h (pluralAllomorph s) s) ;