From 6b7ea904058dcc6f40cae208833a0cd24a5f7b5d Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Sun, 19 Apr 2020 14:02:20 +0200
Subject: [PATCH] (Hun) Retain VPs subjectcase in relVP

---
 src/hungarian/ResHun.gf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/hungarian/ResHun.gf b/src/hungarian/ResHun.gf
index 4d669793..ff7379b7 100644
--- a/src/hungarian/ResHun.gf
+++ b/src/hungarian/ResHun.gf
@@ -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