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
@@ -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