added PassVPSlash

src/polish/ExtendPol.gf

@@ -2,11 +2,11 @@
 
 concrete ExtendPol of Extend =
   CatPol ** ExtendFunctor - [
-    iFem_Pron, youFem_Pron, theyFem_Pron, ProDrop
+    iFem_Pron, youFem_Pron, theyFem_Pron, ProDrop, PassVPSlash
   ]
   with
     (Grammar = GrammarPol) **
-  open PronounMorphoPol in {
+  open PronounMorphoPol, Prelude in {
 
 lin iFem_Pron = pronJa FemSg ;
 lin youFem_Pron = pronTy FemSg ;
@@ -37,6 +37,9 @@ oper
     p = P3        
   };
 
+-- KA: PassVPSlash is derived from PassV2. Objects might be ignored
+lin PassVPSlash vps = setImienne vps True; 
+
 lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
 lin FullName gn sn = {
        nom = gn.nom ++ sn.nom ;