From 31d4e5971a19041e39b29998fd4a6c12024ae92d Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 6 May 2019 17:17:06 +0200
Subject: [PATCH] (Pes) Generalise infVP to other non-finite verb forms

---
 src/persian/ResPes.gf | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/persian/ResPes.gf b/src/persian/ResPes.gf
index b70ac01c2..40186e415 100644
--- a/src/persian/ResPes.gf
+++ b/src/persian/ResPes.gf
@@ -112,7 +112,10 @@ oper
   } ;
 
   showVPHwithImpPrefix = showVPH' OV True VVPres ;
-  infVP : VPH -> Str = showVPH' VO False VVPres Inf defaultAgr ;
+  infVP = overload {
+    infVP : VPH -> Str = showVPH' VO False VVPres Inf defaultAgr ; -- word order VO, VerbForm infinitive
+    infVP : VerbForm -> VPH -> Str = \vf,vp -> showVPH' VO False VVPres vf defaultAgr vp -- VO as word order, but VerbForm can be any (e.g. present participle or perfect stem)
+  } ;
 
   showVPH' : WordOrder -> Bool -> VVTense -> VerbForm -> Agr -> VPH -> Str =
     \wo,showImpPref,ant,vf,agr,vp ->