(Som) Lincats for V2* + SlashV2A + new unittest for V2A and QuestIAdv

This commit is contained in:
Inari Listenmaa
2019-09-10 15:12:54 +02:00
parent 0bbc4c551b
commit 1c367530f0
4 changed files with 17 additions and 12 deletions
+6 -5
View File
@@ -75,12 +75,13 @@ lin
-- : V2Q -> QS -> VPSlash ; -- ask (him) who came
SlashV2Q v2q qs = ;
-- : V2A -> AP -> VPSlash ; -- paint (it) red
SlashV2A v2a ap = slashDObj v2a **
{ comp = (CompAP ap).s } ;
-}
-- : V2A -> AP -> VPSlash ; -- paint (it) red
-- TODO: is "red" plural in "paint them red"?
SlashV2A v2a ap = useVc v2a ** {
comp = \\_ => (CompAP ap).comp ! Sg3 Masc
} ;
-- : VPSlash -> NP -> VP
ComplSlash = insertComp ;