Fin: default case for plural names is exterior

GrammaticalFramework · Jan 30, 2024 · b746a42 · b746a42
1 parent d98bb99
commit b746a42
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/finnish/ParadigmsFin.gf b/src/finnish/ParadigmsFin.gf
@@ -844,9 +844,11 @@ mkVS = overload {
 
   mkLN = overload {
     mkLN : Str -> LN = \s -> lin LN (snoun2spn (mk1N s) ** {n = Sg ; extCase = False}) ;
-    mkLN : Str -> Number -> LN = \s,n -> lin LN (snoun2spnGen (mk1N s) n ** {n = n ; extCase = False}) ;
+    mkLN : Str -> Number -> LN = \s,n -> lin LN (snoun2spnGen (mk1N s) n ** {n = n ;
+             extCase = case n of {Pl => True ; Sg => False}}) ; -- default case for Sg is In, for Pl is On
     mkLN : N -> LN = \noun -> lin LN (snoun2spn noun ** {n = Sg ; extCase = False}) ;
-    mkLN : N -> Number -> LN = \noun,n -> lin LN (snoun2spnGen noun n ** {n = n ; extCase = False}) ;
+    mkLN : N -> Number -> LN = \noun,n -> lin LN (snoun2spnGen noun n ** {n = n ;
+             extCase = case n of {Pl => True ; Sg => False}}) ;
     mkLN : Str -> Number -> Bool -> LN = \s,n,c -> lin LN (snoun2spnGen (mk1N s) n ** {n = n ; extCase = c}) ;
     mkLN : N -> Number -> Bool -> LN = \noun,n,c -> lin LN (snoun2spnGen noun n ** {n = n ; extCase = c}) ;
   } ;