diff --git a/src/rukiga/LexiconCgg.gf b/src/rukiga/LexiconCgg.gf index 1d3ed579..d2a2056a 100755 --- a/src/rukiga/LexiconCgg.gf +++ b/src/rukiga/LexiconCgg.gf @@ -133,7 +133,7 @@ lin father_N2 = mkN2 (mkN "tata" MU_BA) (mkPrep [] [] True) ; - distance_N3 = mkN3 (mkN "oburaingwa" ZERO_BU) (mkPrep "kurunga" "" False) (mkPrep "mpáka" "" False); + distance_N3 = mkN3 (mkN "orugyendo" ZERO_BU) (mkPrep "kurunga" "" False) (mkPrep "mpáka" "" False); --could orugyendo work in its place? oper diff --git a/src/rukiga/ParadigmsCgg.gf b/src/rukiga/ParadigmsCgg.gf index f3b41bf2..39d2a425 100755 --- a/src/rukiga/ParadigmsCgg.gf +++ b/src/rukiga/ParadigmsCgg.gf @@ -62,17 +62,17 @@ oper mkN2 : N -> Prep -> N2 ; mkN2 : N -> Prep -> N2 = \n,p -> case p.isGenPrep of{ - False => n ** {c2 =\\_=> p.s; lock_N2 = <>} ; - True => n ** {c2 = mkGenPrepWithIVClitic; lock_N2 = <>} + False => lin N2 (n ** {c2 =\\_=> p.s}) ; + True => lin N2 (n ** {c2 = mkGenPrepWithIVClitic}) --avoiding lock_C fields }; -- Three-place relational nouns ("the connection from x to y") need two prepositions. mkN3 : N -> Prep -> Prep -> N3 ; -- e.g. connection from x to y mkN3 = \n,p,q -> case of{ - => n ** {c2 =\\_=> p.s; c3 =\\_=> q.s; lock_N3 = <>} ; - => n ** {c2 = mkGenPrepWithIVClitic ; c3 =\\_=> q.s; lock_N3 = <>} ; - => n ** {c2 =\\_=> p.s ; c3 = mkGenPrepWithIVClitic; lock_N3 = <>} ; - => n ** {c2 = mkGenPrepWithIVClitic; c3 = mkGenPrepWithIVClitic; lock_N3 = <>} + => lin N3 ( lin N2 (n ** {c2 =\\_=> p.s}) ** {c3 =\\_=> q.s}); --method of avoiding lock_C fields + => n ** {c2 = mkGenPrepWithIVClitic ; c3 =\\_=> q.s; lock_N2 = <>;lock_N3 = <>} ; + => n ** {c2 =\\_=> p.s ; c3 = mkGenPrepWithIVClitic; lock_N2 = <>;lock_N3 = <>} ; + => n ** {c2 = mkGenPrepWithIVClitic; c3 = mkGenPrepWithIVClitic; lock_N2 = <>; lock_N3 = <>} }; {- prepV2 v p = lin V2 {s = v.s ; p = v.p ; c2 = p.s ; isRefl = v.isRefl} ;