changes to mkA2, mkV and insertObj in malay rgl added

This commit is contained in:
Meowyam
2023-03-01 15:06:25 +08:00
parent 2fcd5bd3ae
commit b462d7893f
3 changed files with 4 additions and 3 deletions

View File

@@ -257,7 +257,7 @@ oper
-- insertObjc : (Agr => Str) -> SlashVP -> SlashVP = \obj,vp ->
-- insertObj obj vp ** {c2 = vp.c2 ; gapInMiddle = vp.gapInMiddle ; missingAdv = vp.missingAdv } ;
insertObj : Str -> VerbPhrase -> VerbPhrase = \str,vp -> vp ** {
s = \\vf,pol => vp.s ! Active ! Pos ++ str ;
s = \\vf,pol => str ++ vp.s ! Active ! Pos ;
} ;
insertComp : AdjPhrase -> VerbPhrase -> VerbPhrase = \ap,vp -> vp ** {