(Ara) Add SlashV2S

This commit is contained in:
Inari Listenmaa
2019-01-26 18:38:42 +01:00
parent aab42b21f6
commit 9c903a76ab
3 changed files with 8 additions and 3 deletions
+1 -1
View File
@@ -505,7 +505,7 @@ oper
insertObj : NP -> VPSlash -> VP = \np,vp -> vp ** {
obj = {s = vp.obj.s -- old object, if there was one
++ bindIfPron np vp -- new object, bind if pronoun and not pred
++ vp.agrObj ! np.a.pgn ; -- only used for SlashV2V and Slash3V3
++ vp.agrObj ! np.a.pgn ; -- used for SlashV2V, Slash3V3 and SlashV2S
a = agrLite np.a} ;
agrObj = \\_ => []
} ;