From 1cdc6cf7742d9fd011b4cd4f18859ee2f083c926 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 4 May 2020 14:51:34 +0200
Subject: [PATCH] (Fin) Pattern match all 3 arguments in 3-arg mkN

---
 src/finnish/ParadigmsFin.gf | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/finnish/ParadigmsFin.gf b/src/finnish/ParadigmsFin.gf
index 14128840..c9a61318 100644
--- a/src/finnish/ParadigmsFin.gf
+++ b/src/finnish/ParadigmsFin.gf
@@ -582,7 +582,10 @@ mkVS = overload {
         ukk = init ukko ;
         ukot = nForms2 ukko ukkoja ;
       in
-      case <ukko,ukon> of {
+      case <ukko,ukon,ukkoja> of {
+        <muk + "i", muk_ + "in",
+         muk__ + "ej" + ("a"|"ä")> -- don't match voi - voin - voita
+           => dPaatti ukko ukon ;  -- 1-arg paradigm forces consonant gradation
         <_, _ + ":n"> => dSDP ukko ;
         <_ + ("aa" | "ee" | "ii" | "oo" | "uu" | "yy" | "ää" | "öö" |
               "ie" | "uo" | "yö" | "ea" | "eä" |
@@ -598,9 +601,6 @@ mkVS = overload {
           dRae ukko ukon ;
         <nukk + "e", nuk + "een"> => dRae ukko ukon ;
         <arp + "i", arv + "en"> => dArpi ukko ukon ;
-        <muk + "i", muk_ + "in",
-          muk__ + "ej" + ("a"|"ä")> => -- don't match voi - voin - voita
-          dPaatti ukko ukon ; -- 1-arg paradigm forces consonant gradation
         <_ + ("us" | "ys"), _ + "den"> => dLujuus ukko ;
         <laid + ("u"|"a"|"ä") + "n", laitu + "men">
           => dLiitin ukko ukon ; -- laidun,hapan,sydän not caught in previous