diff --git a/src/malay/ParadigmsMay.gf b/src/malay/ParadigmsMay.gf index 2b2094421..dd22ff332 100644 --- a/src/malay/ParadigmsMay.gf +++ b/src/malay/ParadigmsMay.gf @@ -136,11 +136,12 @@ oper mkA2 : (adj : Str) -> A2 = \s -> lin A2 ((mkAdj s) ** {c2 = emptyPrep}) ; mkA2 : A -> A2 = \a -> lin A2 (a ** {c2 = emptyPrep}) ; mkA2 : A -> Prep -> A2 = \a,p -> lin A2 (a ** {c2 = p}) ; + mkA2 : (adj : Str) -> Prep -> A2 = \a,p -> lin A2 ((mkAdj a) ** {c2 = p}) ; } ; mkV = overload { mkV : Str -> V = \v -> lin V (regVerb v Ber) ; - mkV : Str -> Prefix -> V = \v,p -> lin V (regVerb v p) + mkV : Str -> Prefix -> V = \v,p -> lin V (regVerb v p) ; } ; prefixV : V -> V = \v -> v ** { diff --git a/src/malay/ResMay.gf b/src/malay/ResMay.gf index 2645b4376..f974f1e7f 100644 --- a/src/malay/ResMay.gf +++ b/src/malay/ResMay.gf @@ -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 ** { diff --git a/src/malay/SentenceMay.gf b/src/malay/SentenceMay.gf index ddda07696..d09387f9c 100644 --- a/src/malay/SentenceMay.gf +++ b/src/malay/SentenceMay.gf @@ -95,7 +95,7 @@ lin oper advS : (comma : Str) -> Adverb -> S -> S = \comma,a,sent -> sent ** { - s = a.s ++ comma ++ sent.s + s = sent.s ++ comma ++ a.s } ; }