From eaad3a4785f859bc0c7fa957bd51ebb0cbd83c2b Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 12 Mar 2013 10:00:15 +0000
Subject: [PATCH] AdvVPSlash in Fin

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

diff --git a/src/finnish/VerbFin.gf b/src/finnish/VerbFin.gf
index 5fde2fbd6..f7e7d1211 100644
--- a/src/finnish/VerbFin.gf
+++ b/src/finnish/VerbFin.gf
@@ -79,6 +79,10 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in {
 
     AdVVP adv vp = insertAdv (\\_ => adv.s) vp ;
 
+    AdvVPSlash vps adv = insertAdv (\\_ => adv.s) vps ** {c2 = vps.c2} ;
+
+    AdVVPSlash adv vps = insertAdv (\\_ => adv.s) vps ** {c2 = vps.c2} ;
+
     ReflVP v = insertObjPre False (\\fin,b,agr => appCompl fin b v.c2 (reflPron agr)) v ;
 
     PassV2 v = let vp = predV v in {