From 1192a93855d3d08ef226bdfc750cabdaa39473e8 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 15 Mar 2019 16:57:44 +0100
Subject: [PATCH] (Pes) Add VPSlashPrep

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

diff --git a/src/persian/VerbPes.gf b/src/persian/VerbPes.gf
index 1611e0b25..5b2a14e9c 100644
--- a/src/persian/VerbPes.gf
+++ b/src/persian/VerbPes.gf
@@ -46,6 +46,10 @@ concrete VerbPes of Verb = CatPes ** open ResPes,Prelude in {
       c2 = vps.c2 --  preposition for the direct object comes from VPSlash
     } ;
 
+  -- : VP -> Prep -> VPSlash ;
+  VPSlashPrep vp prep = vp ** vs prep ;
+
+
     AdvVP vp adv = insertAdV adv.s vp ;
     AdVVP adv vp = insertAdV adv.s vp ;
     ReflVP v = insertCompPre reflPron v ;