fix PassVPSlash/PassAgentVPSlash when the Slash category contain an adverb

This commit is contained in:
Krasimir Angelov
2023-10-08 19:46:32 +02:00
parent 6e0d281fe0
commit 297f396bd2
2 changed files with 5 additions and 3 deletions
+1 -1
View File
@@ -302,7 +302,7 @@ incomplete concrete ExtendRomanceFunctor of Extend =
vps ** {
s = auxvp.s ;
agr = auxvp.agr ;
comp = \\a => vps.comp ! a ++ (let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) ++ agent ;
comp = \\a => (let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) ++ vps.comp ! a ++ agent ;
} ;
} ;