From d0158265d19847b76f44dfc233d9db7f07688ba4 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 1 Jan 2019 09:50:35 +0200
Subject: [PATCH] (Ara) don't bind if object case is nominative

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

diff --git a/src/arabic/ResAra.gf b/src/arabic/ResAra.gf
index dabae531..e4d18bbd 100644
--- a/src/arabic/ResAra.gf
+++ b/src/arabic/ResAra.gf
@@ -1729,8 +1729,11 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
     bindIf : Bool -> Str = \b -> if_then_Str b BIND [] ;
 
     bindIfPron : NP -> {c2:Preposition; isPred:Bool} -> Str = \np,vp ->
-      let bind = case vp.isPred of {
-                   False => bindIf (orB np.a.isPron vp.c2.binds) ;
+      let notNom : Case -> Bool = \c -> case c of {Nom => False; _=>True} ;
+          bind = case vp.isPred of {
+                   False => bindIf (
+                              orB (andB np.a.isPron (notNom vp.c2.c)) --if np is pron, not in nominative
+                                   vp.c2.binds) ;
                    True  => [] }
        in vp.c2.s ++ bind ++ np.s ! vp.c2.c ;