ParadigmsFin.exceptPlGenN for special plural genitives

This commit is contained in:
aarneranta committed 2021-08-01 12:38:24 +02:00
1 parent decdfac926
commit ee86e2390c
4 files changed
+21 -1

No files matched your search

+8 -1
View File
@@ -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