diff --git a/src/latin/AdverbLat.gf b/src/latin/AdverbLat.gf index 47307310..db44f63f 100644 --- a/src/latin/AdverbLat.gf +++ b/src/latin/AdverbLat.gf @@ -8,7 +8,7 @@ concrete AdverbLat of Adverb = CatLat ** open ResLat, Prelude, ParadigmsLat in -- PrepNP : Prep -> NP -> Adv ; -- in the house PrepNP prep np = - mkAdv (prep.s ++ np.adv ++ (combineNounPhrase np) ! PronNonDrop ! prep.c ) ; + mkAdv (prep.s ++ (combineNounPhrase np) ! PronNonDrop ! prep.c ) ; -- ComparAdvAdj : CAdv -> A -> NP -> Adv ; -- more warmly than John diff --git a/src/latin/ExtendLat.gf b/src/latin/ExtendLat.gf index d1babd83..003ca30e 100644 --- a/src/latin/ExtendLat.gf +++ b/src/latin/ExtendLat.gf @@ -90,7 +90,7 @@ concrete ExtendLat of Extend = CatLat ** open ResLat in { -- EmbedPresPart : VP -> SC ; -- looking at Mary (is fun) -- PastPartAP : VPSlash -> AP ; -- lost (opportunity) ; (opportunity) lost in space - PastPartAP vp = { s = vp.part ! VPassPerf } ; + PastPartAP vp = { s = \\ag => vp.part ! VPassPerf ! ag ++ vp.adv ++ vp.c.s} ; -- TODO -- PastPartAgentAP : VPSlash -> NP -> AP ; -- (opportunity) lost by the company -- -- this is a generalization of Verb.PassV2 and should replace it in the future. diff --git a/src/latin/NounLat.gf b/src/latin/NounLat.gf index 907b12da..e52cd3c9 100644 --- a/src/latin/NounLat.gf +++ b/src/latin/NounLat.gf @@ -85,7 +85,7 @@ concrete NounLat of Noun = CatLat ** open ResLat, Prelude, ConjunctionLat in { -- DetQuant quant num = { s = \\g,c => quant.s ! Ag g num.n c ++ num.s ! g ! c ; - sp = \\g,c => quant.sp ! Ag g num.n c ++ num.s ! g ! c ; + sp = \\g,c => quant.sp ! Ag g num.n c ; n = num.n } ; @@ -182,6 +182,6 @@ concrete NounLat of Noun = CatLat ** open ResLat, Prelude, ConjunctionLat in { -- CountNP : Det -> NP -> NP ; -- three of them, some of the boys CountNP det np = np ** { - det = det + det = det ** { s = \\g,c => det.s ! g ! c++ np.det.s ! g ! c } ; }; -} +} \ No newline at end of file diff --git a/src/latin/ResLat.gf b/src/latin/ResLat.gf index 702e2bea..419ad088 100644 --- a/src/latin/ResLat.gf +++ b/src/latin/ResLat.gf @@ -351,6 +351,7 @@ param VAct VSim (VPres VInd) Sg P1 => -- Present Indicative ( case pres_ind_base of { _ + "a" => ( init pres_ind_base ) ; + -- | _ + "ui" => ( init pres_ind_base ) ; _ => pres_ind_base } ) + "o" ; --actPresEnding Sg P1 ;