From 24073f3ba7fbdbec081074a4ae6e0ff971a64a0d Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 5 May 2020 07:31:38 +0200
Subject: [PATCH] =?UTF-8?q?(Fin)=20Create=20paradigm=20for=20l=C3=A4mmin-l?=
 =?UTF-8?q?=C3=A4mpim=C3=A4n,=20Sg=20Gen=20not=20covered=20by=20dSuurin?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/finnish/MorphoFin.gf    | 11 +++++++++++
 src/finnish/ParadigmsFin.gf |  1 +
 2 files changed, 12 insertions(+)

diff --git a/src/finnish/MorphoFin.gf b/src/finnish/MorphoFin.gf
index 3a20fffd..39b0e4d7 100644
--- a/src/finnish/MorphoFin.gf
+++ b/src/finnish/MorphoFin.gf
@@ -98,6 +98,17 @@ resource MorphoFin = ResFin ** open Prelude in {
       (liittim + "in" + a) (liittim + "iss" + a)
       (liittim + "iin") ;
 
+  dLämmin : (_,_ : Str) -> NForms = \lämmin,lämpimän ->
+    let                   -- NB. for sisin~sisimmän, use dSuurin
+      a = vowHarmony lämmin ;
+      lämpim = Predef.tk 2 lämpimän ;
+    in nForms10
+      lämmin lämpimän (lämmin + "t" + a)
+      (lämpim + a + "n" + a)  (lämpim + a + a + "n")
+      (lämpim + "ien") (lämpim + "i" + a)
+      (lämpim + "in" + a) (lämpim + "iss" + a)
+      (lämpim + "iin") ;
+
   dOnneton : Str -> NForms = \onneton ->
     let
       a = vowHarmony onneton ;
diff --git a/src/finnish/ParadigmsFin.gf b/src/finnish/ParadigmsFin.gf
index c9a61318..82841f01 100644
--- a/src/finnish/ParadigmsFin.gf
+++ b/src/finnish/ParadigmsFin.gf
@@ -595,6 +595,7 @@ mkVS = overload {
           dSilakka ukko ukon ukkoja ;  -- auto,auton
         <_ + "mpi", _ + ("emman" | "emmän")> => dSuurempi ukko ;
         <_ + "in", _ + ("imman" | "immän")> => dSuurin ukko ;
+        <lämm + "in", lämpi + ("man"|"män")> => dLämmin ukko ukon ;
         <terv + "e", terv2 + "een"> => -- was nonlinear
           dRae ukko ukon ;
         <taiv + ("as" | "äs"), taiv2 + ("aan" | "ään")> =>  -- was nonlinear