ParadigmsFin.exceptPlGenN for special plural genitives
This commit is contained in:
1 parent
decdfac926
commit
ee86e2390c
4 files changed
+21
-1
No files matched your search
@@ -117,7 +117,14 @@ oper
|
||||
|
||||
exceptNomSNoun : SNoun -> Str -> SNoun = \noun,nom -> {
|
||||
s = table {
|
||||
0 => nom ;
|
||||
5 => nom ;
|
||||
f => noun.s ! f
|
||||
} ;
|
||||
h = noun.h
|
||||
} ;
|
||||
exceptPlGenSNoun : SNoun -> Str -> SNoun = \noun,plgen -> {
|
||||
s = table {
|
||||
5 => init plgen ;
|
||||
f => noun.s ! f
|
||||
} ;
|
||||
h = noun.h
|
||||
|
||||
Reference in new issue
Block a user