diff --git a/lib/resource-1.0/french/DiffFre.gf b/lib/resource-1.0/french/DiffFre.gf index aa07ab1a4..a9e6efcbc 100644 --- a/lib/resource-1.0/french/DiffFre.gf +++ b/lib/resource-1.0/french/DiffFre.gf @@ -117,7 +117,8 @@ instance DiffFre of DiffRomance = open CommonRomance, PhonoFre, Prelude in { mkImperative b p vp = { s = \\pol,aag => let - agr = aag ** {p = p} ; + num = if_then_else Number b Pl aag.n ; + agr = {g = aag.g ; n = num ; p = p} ; verb = (vp.s ! VPImperat).fin ! agr ; neg = vp.neg ! pol ; hascl = (pronArg agr.n agr.p vp.clAcc vp.clDat).p3 ; diff --git a/lib/resource-1.0/mathematical/SymbolRomance.gf b/lib/resource-1.0/mathematical/SymbolRomance.gf index c0a169924..ba9fa6528 100644 --- a/lib/resource-1.0/mathematical/SymbolRomance.gf +++ b/lib/resource-1.0/mathematical/SymbolRomance.gf @@ -17,7 +17,7 @@ lin hasClit = False } ; CNNumNP cn i = { - s = \\c => cn.s ! Sg ++ i.s ! Masc ; + s = \\c => artDef cn.g Sg (npform2case c) ++ cn.s ! Sg ++ i.s ! Masc ; a = agrP3 cn.g Sg ; hasClit = False } ;