1
0
forked from GitHub/gf-rgl

(Hun) Retain VPs subjectcase in relVP

This commit is contained in:
Inari Listenmaa
2020-04-19 14:02:20 +02:00
parent 2cdc0830af
commit 6b7ea90405

View File

@@ -344,7 +344,7 @@ oper
relVP' : RP ** {agr : Person*Number} -> VerbPhrase -> RClause = \rp,vp -> {
s = \\t,a,p,n,c => let subjcase : Case = case vp.sc of {
SCNom => c ;
SCNom => Nom ;
SCDat => Dat }
in rp.s ! n ! subjcase
++ vp.s ! VFin rp.agr.p1 n -- variable by number