From e468b48ded21ca9e91a5f687576a902c02d2ca2a Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 29 Jan 2019 17:57:21 +0100
Subject: [PATCH] (Ara) Fix the corner case where ReflVP is called after
 VPSlashPrep.

Also fix noPrep to accPrep (the default object case).

Tested with gftest -o, only changes were in combinations of ReflVP and
VPSlashPrep.
---
 src/arabic/VerbAra.gf | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/arabic/VerbAra.gf b/src/arabic/VerbAra.gf
index e2b198e3..e0fd3d0e 100644
--- a/src/arabic/VerbAra.gf
+++ b/src/arabic/VerbAra.gf
@@ -111,9 +111,11 @@ concrete VerbAra of Verb = CatAra ** open Prelude, ResAra, ParamX in {
     -- : VPSlash -> VP ;         -- love himself
     ReflVP vps = vps ** {
       s = \\pgn,vf => vps.s ! pgn ! vf
+                   ++ vps.obj.s -- only relevant if the VPSlash has been through VPSlashPrep
                    ++ vps.c2.s ++ bindIf vps.c2.binds
                    ++ reflPron vps.c2.c pgn ;
-      c2 = noPrep
+      c2 = accPrep ;
+      obj = emptyObj ; -- because old obj was moved in s
       } ;
 
     PassV2 = passPredV ;