fix passive for token ungluing

This commit is contained in:
Meowyam
2022-05-18 15:59:55 +08:00
parent a9c18fc48c
commit edcef16eb1

View File

@@ -237,16 +237,16 @@ oper
mkVerb2 : Verb -> Preposition -> Verb2 = \v,pr -> v ** { mkVerb2 : Verb -> Preposition -> Verb2 = \v,pr -> v ** {
c2 = pr ; c2 = pr ;
passive = "di" + v.s ! Root passive = "di" ++ v.s ! Root
} ; } ;
mkVerb3 : Verb -> (p,q : Preposition) -> Verb3 = \v,p,q -> mkVerb3 : Verb -> (p,q : Preposition) -> Verb3 = \v,p,q ->
mkVerb2 v p ** {c3 = q} ; mkVerb2 v p ** {c3 = q} ;
mkVerb4 : Verb -> Preposition -> Str -> Verb4 = \v,pr,str -> v ** { mkVerb4 : Verb -> Preposition -> Str -> Verb4 = \v,pr,str -> v ** {
s = \\_ => v.s ! Active + str; s = \\_ => v.s ! Active ++ str;
c2 = pr ; c2 = pr ;
passive = "di" + v.s ! Root + str passive = "di" ++ v.s ! Root + str
} ; } ;
copula : Verb = {s = \\_ => "ada"} ; -- TODO copula : Verb = {s = \\_ => "ada"} ; -- TODO