From 4c277ee268bd74942d4c29b371043f000987281a Mon Sep 17 00:00:00 2001
From: inari <inari@chalmers.se>
Date: Thu, 3 Oct 2013 13:13:46 +0000
Subject: [PATCH] PassVPSlash for Swedish

---
 lib/src/swedish/ExtraSwe.gf | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/src/swedish/ExtraSwe.gf b/lib/src/swedish/ExtraSwe.gf
index 0db64eefd..ee4c355f1 100644
--- a/lib/src/swedish/ExtraSwe.gf
+++ b/lib/src/swedish/ExtraSwe.gf
@@ -28,6 +28,11 @@ lin
       } ;
 
  lin
+  --TODO: fix this; just wrote something that it compiles and doesn't give [PassVPSlash] when parsing text
+  PassVPSlash vps = 
+       insertObj (\\a => vps.c2.s ++ vps.n3 ! a) vps ;
+
+
   RelVS s rvs = {s = \\o => s.s ! o ++ "," ++ rvs.s ! agrP3 Neutr Sg ! RPrep True} ; 
   RelSlashVS t p vs np = let vpform = VPFinite t.t t.a ;
                           cl     = PredVP np (predV vs) ;