From 9cd632497b8e30829a01cdcb4c9b9f7e732ab6f9 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

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

diff --git a/lib/src/finnish/VerbFin.gf b/lib/src/finnish/VerbFin.gf
index 5fde2fbd6..f7e7d1211 100644
--- a/lib/src/finnish/VerbFin.gf
+++ b/lib/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 {