From 9e5cbb35fdb73bed43ecd8b6eb51a9b24dd0b5dd Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 19 Nov 2018 17:00:06 +0100
Subject: [PATCH] (Ara) Add AdVVPSlash

---
 src/arabic/VerbAra.gf | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/arabic/VerbAra.gf b/src/arabic/VerbAra.gf
index e07ff791..83323dc6 100644
--- a/src/arabic/VerbAra.gf
+++ b/src/arabic/VerbAra.gf
@@ -52,7 +52,8 @@ concrete VerbAra of Verb = CatAra ** open Prelude, ResAra, ParamX in {
 
     AdvVP vp adv = insertStr adv.s vp ;
 
---    AdVVP adv vp = insertAdV adv.s vp ;
+    AdVVP adv = insertStr adv.s ;
+    AdVVPSlash adv vps = vps ** insertStr adv.s vps ;
 --
 --    ReflV2 v = insertObj (\\a => v.c2 ++ reflPron ! a) (predV v) ;
 --