insertAdv and insertAdvSlash should accumulate adverbs

This commit is contained in:
Krasimir Angelov
2026-05-06 15:57:59 +02:00
parent cf6a376272
commit 6115d44398

View File

@@ -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