From 6115d443989dc402413ffdb90095d3fc744770bd Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Wed, 6 May 2026 15:57:59 +0200
Subject: [PATCH] insertAdv and insertAdvSlash should accumulate adverbs

---
 src/hungarian/ResHun.gf | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/hungarian/ResHun.gf b/src/hungarian/ResHun.gf
index c202c7c6..1c7d87c8 100644
--- a/src/hungarian/ResHun.gf
+++ b/src/hungarian/ResHun.gf
@@ -550,8 +550,8 @@ oper
     adv = [] ;
     } ;
 
-  insertAdv : VerbPhrase -> SS -> VerbPhrase = \vp,adv -> vp ** {adv = adv.s} ;
-  insertAdvSlash : VPSlash -> SS -> VPSlash = \vps,adv -> vps ** {adv = adv.s} ;
+  insertAdv : VerbPhrase -> SS -> VerbPhrase = \vp,adv -> vp ** {adv = vp.adv ++ adv.s} ;
+  insertAdvSlash : VPSlash -> SS -> VPSlash = \vps,adv -> vps ** {adv = vps.adv ++ adv.s} ;
 
 --------------------------------------------------------------------------------
 -- Cl, S