ParadigmsFin.exceptPlGenN for special plural genitives

This commit is contained in:
aarneranta
2021-08-01 12:38:24 +02:00
parent decdfac926
commit ee86e2390c
4 changed files with 21 additions and 1 deletions
+7
View File
@@ -47,6 +47,13 @@ oper
} ;
h = noun.h
} ;
exceptPlGenSNoun : SNoun -> Str -> SNoun = \noun,plgen -> {
s = table {
NCase Pl Gen => plgen ;
f => noun.s ! f
} ;
h = noun.h
} ;