Extend.PastPartAP in Swe and Bul

src/swedish/ExtendSwe.gf

@@ -7,7 +7,7 @@ concrete ExtendSwe of Extend = CatSwe **
     MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,
     MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS,
     ICompAP,
-    PositAdVAdj,
+    PositAdVAdj, PastPartAP, PastPartAgentAP,
     RNP, RNPList, ReflRNP, ReflPron, ReflPoss, PredetRNP, ConjRNP,
     Base_rr_RNP, Base_nr_RNP, Base_rn_RNP, Cons_rr_RNP, Cons_nr_RNP,
     CompoundN
@@ -153,5 +153,16 @@ concrete ExtendSwe of Extend = CatSwe **
     
   lin
     PositAdVAdj a = {s = a.s ! AAdv} ;
+    
+    PastPartAP vp = {
+      s = \\af => partVPPlus vp (PartPret af Nom) (aformpos2agr af) Pos ;
+      isPre = True
+    } ;
+
+    PastPartAgentAP vp np = {
+      s = \\af => partVPPlus vp (PartPret af Nom) (aformpos2agr af) Pos ++ "av" ++ np.s ! accusative ;
+      isPre = False
+    } ;
+
 }