diff --git a/src/gaelic/PhraseGla.gf b/src/gaelic/PhraseGla.gf index a89ad298..a267dd89 100644 --- a/src/gaelic/PhraseGla.gf +++ b/src/gaelic/PhraseGla.gf @@ -7,9 +7,11 @@ concrete PhraseGla of Phrase = CatGla ** open Prelude, ResGla in { {- UttQS qs = qs ; - UttIAdv iadv = iadv ; - UttNP np = - UttIP ip = + UttIAdv iadv = iadv ; -} + + UttNP np = {s = linNP np} ; + +{- UttIP ip = UttImpSg pol imp = { s = pol.s ++ imp.s ! Sg ! pol.p } ; UttImpPl pol imp = UttImpPol pol imp = {s = pol.s ++ imp.s ! Sg ! pol.p} ;