forked from GitHub/gf-rgl
fix PassVPSlash/PassAgentVPSlash when the Slash category contain an adverb
This commit is contained in:
@@ -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 ;
|
||||
} ;
|
||||
|
||||
} ;
|
||||
|
||||
Reference in New Issue
Block a user