Exist with Adv in Swe

lib/src/swedish/IdiomSwe.gf

@@ -33,6 +33,22 @@ concrete IdiomSwe of Idiom = CatSwe **
               }
       } ;
 
+    ExistNPAdv np adv = 
+      mkClause "det" (agrP3 neutr Sg) (insertObj 
+        (\\_ => np.s ! accusative ++ adv.s) (predV (depV finna_V))) ;
+
+    ExistIPAdv ip adv = {
+      s = \\t,a,p => 
+            let 
+              cls = 
+               (mkClause "det" (agrP3 neutr Sg) (insertAdv adv.s (predV (depV finna_V)))).s ! t ! a ! p ;
+              who = ip.s ! accusative
+            in table {
+              QDir   => who ++ cls ! Inv ;
+              QIndir => who ++ cls ! Sub
+              }
+      } ;
+
     ProgrVP vp = 
       insertObj (\\a => "att" ++ infVP vp a) (predV (partV hålla_V "på")) ;