From 1b9b15fbedd93b10da60bca95f34b92ac571f35e Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Thu, 16 Mar 2023 09:48:16 +0100
Subject: [PATCH] added PassVPSlash

---
 src/polish/ExtendPol.gf | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/polish/ExtendPol.gf b/src/polish/ExtendPol.gf
index 58cf42744..f787007fe 100644
--- a/src/polish/ExtendPol.gf
+++ b/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 ;