From 4d3620ff3ce5a2b5b246f288cc642aa4fd2f5a43 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 13 Aug 2019 15:46:06 +0200
Subject: [PATCH] (Som) Remove unnecessary BIND in predVP

---
 src/somali/ResSom.gf | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/somali/ResSom.gf b/src/somali/ResSom.gf
index 1a5adb0d..f369b7e5 100644
--- a/src/somali/ResSom.gf
+++ b/src/somali/ResSom.gf
@@ -795,8 +795,8 @@ oper
            subjpron : Str = if_then_Str np.isPron (subj.s ! Nom) np.empty ;
            obj : {p1,p2 : Str} =
               let o : {p1,p2 : Str} = vp.comp ! subj.a ;
-                  bind : Str = case <isPassive vp,vp.obj2.a, vp.c2, vp.pred> of {
-                                 <False,P3_Prep,Single NoPrep,NoPred> => [] ;
+                  bind : Str = case <isPassive vp, vp.obj2.a, vp.c2> of {
+                                 <False,P3_Prep,Single NoPrep> => [] ;
                                  _                             => BIND } ;
               in case <cltyp,p> of {
                     <Statement,Neg> => {p2 = [] ; p1 = o.p1 ++ o.p2 ++ bind} ;