From 6f73277ac2e39e399a42587f5e39aacbbd37475e Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 12 Oct 2023 11:32:51 +0200
Subject: [PATCH] (Fin) fix SgPart allomorph for nouns ending #vow+O

---
 src/finnish/MorphoFin.gf | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/finnish/MorphoFin.gf b/src/finnish/MorphoFin.gf
index 3d3742186..422a6dbee 100644
--- a/src/finnish/MorphoFin.gf
+++ b/src/finnish/MorphoFin.gf
@@ -155,9 +155,9 @@ resource MorphoFin = ResFin ** open Prelude in {
       silakk = init silakka ;
       silaka = init silakan ;
       silak  = init silaka ;
-      silakkaa = silakka + case o of {
-        "o" | "ö" => "t" + a ;  -- radiota
-        _ => a                  -- sammakkoa
+      silakkaa = silakka + case silakka of {
+        _ + #vowel + ("o" | "ö") => "t" + a ;  -- radiota
+        _ => a                               -- sammakkoa
         } ;
       silakoiden = case <silakoita : Str> of {
         _ + "i" + ("a" | "ä") =>                    -- asemia
@@ -859,6 +859,8 @@ resource MorphoFin = ResFin ** open Prelude in {
 -- Auxiliaries
 -----------------------------------------
 
+  vowel : pattern Str = #("a"|"e"|"i"|"o"|"u"|"y"|"ä"|"ö") ;
+
 -- The following function defines how grade alternation works if it is active.
 -- In general, *whether there is* grade alternation must be given in the lexicon
 -- (cf. "auto - auton" not "audon"; "vihje - vihjeen" not "vihkeen").