GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Hun) Retain VPs subjectcase in relVP

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-19 14:02:20 +02:00
parent 2cdc0830af
commit 6b7ea90405
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/hungarian/ResHun.gf
View File

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