From e4d34bff3202ec28d9d23fe803109021bed2f92d Mon Sep 17 00:00:00 2001
From: odanoburu <bcclaro@gmail.com>
Date: Mon, 22 Oct 2018 18:27:20 +0000
Subject: [PATCH] (Eng) update SlashV2A with new V2A lincat

---
 src/english/VerbEng.gf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/english/VerbEng.gf b/src/english/VerbEng.gf
index 20fd1863e..cf397e8c7 100644
--- a/src/english/VerbEng.gf
+++ b/src/english/VerbEng.gf
@@ -21,7 +21,7 @@ concrete VerbEng of Verb = CatEng ** open ResEng, Prelude in {
     SlashV2S v s  = insertExtrac (conjThat ++ s.s) (predVc v) ;   ---- insertExtra?
 ---    SlashV2S v s  = insertObjc (variants {\\_ => conjThat ++ s.s; \\_ => s.s}) (predVc v) ;
     SlashV2Q v q  = insertExtrac (q.s ! QIndir) (predVc v) ;
-    SlashV2A v ap = insertObjc (\\a => ap.s ! a) (predVc v) ; ----
+    SlashV2A v ap = insertObjc (\\a => v.c3 ++ ap.s ! a) (predVc v) ; ----
 
     ComplSlash vp np =
       let vp' = case vp.gapInMiddle of {