ParadigmsFin.exceptPlGenN for special plural genitives

2021-08-01 12:38:24 +02:00
parent decdfac926
commit ee86e2390c
4 changed files with 21 additions and 1 deletions
@@ -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
+      } ;