From 88844d693adc8cf9fca768d376a647e1905cff0a Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Fri, 20 Sep 2013 12:07:12 +0000 Subject: [PATCH] ProgrVP in English should add the verb particle if there is any --- lib/src/english/IdiomEng.gf | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/src/english/IdiomEng.gf b/lib/src/english/IdiomEng.gf index 017ed37f1..da77623ea 100644 --- a/lib/src/english/IdiomEng.gf +++ b/lib/src/english/IdiomEng.gf @@ -30,7 +30,7 @@ concrete IdiomEng of Idiom = CatEng ** open Prelude, ResEng in { mkQuestion (ss (ip.s ! npNom)) (mkClause "there" (agrP3 ip.n) (insertObj (\\_ => adv.s) (predAux auxBe))) ; - ProgrVP vp = insertObj (\\a => vp.ad ++ vp.prp ++ vp.s2 ! a) (predAux auxBe) ; + ProgrVP vp = insertObj (\\a => vp.ad ++ vp.prp ++ vp.p ++ vp.s2 ! a) (predAux auxBe) ; ImpPl1 vp = {s = "let's" ++ infVP VVAux vp Simul CPos (AgP1 Pl)} ;