fix active verb form for love

This commit is contained in:
Meowyam
2022-02-21 16:14:53 +08:00
parent ce9618b945
commit 066a9f6170
2 changed files with 4 additions and 1 deletions

View File

@@ -125,4 +125,5 @@ concrete CatMay of Cat = CommonX - [IAdv] ** open ResMay, Prelude in {
CN = \cn -> cn.s ! NF Sg Bare ++ cn.heavyMod;
ClSlash = \cl -> cl.subj ++ cl.pred ! Root ! Pos ++ cl.c2.s;
RCl = \cl -> cl.subj ++ cl.pred ! P1 ! Pos;
Cl = \cl -> cl.subj ++ cl.pred ! Active ! Pos;
}

View File

@@ -224,7 +224,9 @@ lin long_A = mkA "panjang" ;
-- lin lose_V2 = mkV2 "" ;
-- lin louse_N = mkN "" ;
-- lin love_N = mkN "" ;
lin love_V2 = mkV2 "cinta" ;
lin love_V2 = let love' : V2 = mkV2 "cinta" in love' ** {
s = \\_ => "mencintai" ;
} ;
----
-- M