From 7827e892d99f8663baf1b9338cc91ddea22ad519 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 29 Sep 2023 09:38:36 +0200
Subject: [PATCH] (Fin) fix bug in PresPartAP and PastPartAP

---
 src/finnish/ExtendFin.gf | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/src/finnish/ExtendFin.gf b/src/finnish/ExtendFin.gf
index 0ff848d0..10689d76 100644
--- a/src/finnish/ExtendFin.gf
+++ b/src/finnish/ExtendFin.gf
@@ -244,14 +244,22 @@ lin AdjAsCN ap = {s = ap.s ! True ; postmod = \\_ => ap.p ; h = Back} ; ---- Har
 lin AdjAsNP ap = MassNP (AdjAsCN ap) ;
 lin ApposNP np1 np2 = np1 ** {s = \\npf => np1.s ! npf ++ np2.s ! NPSep} ;
 lin PresPartAP vp = {
-      s = \\_,nf => vp.s.s ! PresPartAct (AN nf) ;
+      s = \\_,nf => preCompVP vp (PresPartAct (AN nf)) ;
       p = [] ;
       hasPrefix = False
       } ;
 lin PastPartAP vps = {
-      s = \\_,nf => vps.s.s ! PastPartAct (AN nf) ;
+      s = \\_,nf => preCompVP <vps : VP>  (PastPartAct (AN nf)) ;
       p = vps.c2.s.p1 ;
       hasPrefix = False
       } ;
 
+oper
+  -- ruohoa syövä, Ranskassa valmistettu
+  preCompVP : S.VP -> VForm -> Str = \vp, vform ->
+    vp.s2 ! True ! Pos ! agrP3 Sg ++
+    vp.adv ! Pos ++
+    vp.s.s ! vform ++
+    vp.ext ;
+
 }