From d13c34e641bef18d70800d4e6d1df694e0436f71 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 5 Oct 2018 15:50:24 +0200
Subject: [PATCH] (Fin) Add new constructor for V -> A: present participle into
 adjective.

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

diff --git a/src/finnish/ParadigmsFin.gf b/src/finnish/ParadigmsFin.gf
index 216b49746..bea18dd6a 100644
--- a/src/finnish/ParadigmsFin.gf
+++ b/src/finnish/ParadigmsFin.gf
@@ -642,6 +642,7 @@ mkVS = overload {
 
     mkA : (hyva,parempi,paras : N) -> (hyvin,paremmin,parhaiten : Str) -> A 
       = \h,p,ps,hn,pn,ph -> lin A (mkAdj h p ps hn pn ph) ;
+    mkA : V -> A = presPartA ;
     } ;
 
   mkA_1 : Str -> A = \x -> lin A (noun2adjDeg (mk1N x)) ;
@@ -667,7 +668,14 @@ mkVS = overload {
       (snoun2compar suuri)
       (snoun2superl suuri) ;   
 
+  
+  presPartA : SVerb -> A = \tullaSV ->
+    let tulla   = sverb2verb True tullaSV ;
+	tuleva : NForm => Str = \\nf => tulla.s ! PresPartAct (AN nf) ;
+        tuleva_SN = { s = tuleva ;
+		      h = tullaSV.h } ;
 
+     in noun2adjDeg tuleva_SN ;
 
 -- verbs