GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-30 02:58:35 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Kor) Tweaks in Adv+AdV

Browse Source
This commit is contained in:
Inari Listenmaa
2020-05-21 14:11:50 +02:00
parent 1d621f5a7f
commit 5153005d51
4 changed files with 10 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/korean/VerbKor.gf
+5 -6
View File
@@ -89,17 +89,16 @@ lin
-- : VPSlash -> Adv -> VPSlash ; -- use (it) here
AdvVPSlash = insertAdvSlash ;
{-
-- : VP -> Adv -> VP ; -- sleep , even though ...
ExtAdvVP vp adv = ;
-- ExtAdvVP vp adv = ;
-- : AdV -> VP -> VP ; -- always sleep
AdVVP adv vp = vp ** {adv = adv} ;
AdVVP adv vp = vp ** {adv = vp.adv ++ adv.s} ;
-- : AdV -> VPSlash -> VPSlash ; -- always use (it)
AdVVPSlash adv vps = vps ** { adv = adv.s ++ vps.adv } ;
-}
AdVVPSlash adv vps = vps ** { adv = vps.adv ++ adv.s} ;
-- : VP -> Prep -> VPSlash ; -- live in (it)
-- VPSlashPrep vp prep =
-- let adv = prepNP prep emptyNP