From 33d20b15e495ba26d10d640a5f5d6961cc6e210c Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 1 Jan 2019 10:06:11 +0200
Subject: [PATCH] (Ara) fix bug in MkVPS + comment about possible improvement
 in [VPS]s

---
 src/arabic/ExtendAra.gf | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/arabic/ExtendAra.gf b/src/arabic/ExtendAra.gf
index 457bc8813..be05864a5 100644
--- a/src/arabic/ExtendAra.gf
+++ b/src/arabic/ExtendAra.gf
@@ -29,7 +29,6 @@ concrete ExtendAra of Extend =
     ICompAP ap = {s = \\gn => "كَمْ" ++ ap.s ! NoHum ! gn.g ! gn.n ! Indef ! Acc} ;
 
   lincat
-
     VPS   = {s : PerGenNum => Str} ;  -- finite VP's with tense and polarity
     [VPS] = {s1,s2 : PerGenNum => Str} ;
   lin
@@ -40,14 +39,14 @@ concrete ExtendAra of Extend =
           Nominal --  Nominal (=SVO) generalises best for ConjVPS.
           vp.obj.a.isPron
           (vStr vp pgn t.t p.p Nominal)
-          (case <vp.isPred,vp.obj.a.isPron> of {
-                    <False,True> => BIND ++ vp.obj.s ;
-                    _            =>         vp.obj.s })
+          vp.obj.s -- BIND is taken care of when the VP was made, no need to add one here
           (pred vp pgn t.t p.p)
           vp.s2
       in vps.before ++ vps.after -- word order is SVO, so this is safe for just this case.
       } ;
 
+    -- maybe more robust to use إِيَّا as object carrier if the VPS
+    -- consists of several VPSs; like it's done in Slash3V3 /IL
     BaseVPS = twoTable PerGenNum ;
     ConsVPS = consrTable PerGenNum comma ;
     ConjVPS = conjunctDistrTable PerGenNum ;