diff --git a/src/malay/SentenceMay.gf b/src/malay/SentenceMay.gf index fc736da2..de58e7aa 100644 --- a/src/malay/SentenceMay.gf +++ b/src/malay/SentenceMay.gf @@ -1,5 +1,6 @@ + concrete SentenceMay of Sentence = CatMay ** open - TenseX, ResMay, (AK=AdverbMay), Prelude in { + TenseX, ResMay, (AM=AdverbMay), Prelude in { flags optimize=all_subs ; @@ -70,7 +71,7 @@ lin ExtAdvS = advS (SOFT_BIND ++ ","); -- : S -> Subj -> S -> S ; - -- SSubjS s1 subj s2 = AdvS (AK.SubjS subj s2) s1 ; + -- SSubjS s1 subj s2 = AdvS (AM.SubjS subj s2) s1 ; -- : S -> RS -> S ; -- she sleeps, which is good -- RelS sent rs = advS {s = rs.s ! Sg3 Masc ++ SOFT_BIND ++ ","} sent ; diff --git a/src/malay/VerbMay.gf b/src/malay/VerbMay.gf index c41cd2ed..08d4b929 100644 --- a/src/malay/VerbMay.gf +++ b/src/malay/VerbMay.gf @@ -88,11 +88,7 @@ lin AdVVPSlash adv vps = vps ** { adv = adv.s ++ vps.adv } ; -} -- : VP -> Prep -> VPSlash ; -- live in (it) - -- VPSlashPrep vp prep = - -- let adv = prepNP prep emptyNP - -- in insertAdv vp adv ; - - + -- VPSlashPrep vp prep = vp ** {c2 = prep} ; --2 Complements to copula