diff --git a/lib/src/french/StructuralFre.gf b/lib/src/french/StructuralFre.gf index b3ac42214..6fc5daa33 100644 --- a/lib/src/french/StructuralFre.gf +++ b/lib/src/french/StructuralFre.gf @@ -34,7 +34,7 @@ lin either7or_DConj = {s1,s2 = "ou" ; n = Pl} ; everybody_NP = pn2np (mkPN ["tout le monde"] Masc) ; every_Det = { - s = \\_,_ => "chaque" ; + s = \\_,c => prepCase c ++ "chaque" ; sp = \\g,c => prepCase c ++ genForms "chacun" "chacune" ! g ; n = Sg ; s2 = [] @@ -91,7 +91,7 @@ lin so_AdA = ss "si" ; somebody_NP = pn2np (mkPN ["quelqu'un"] Masc) ; somePl_Det = {s,sp = \\_,c => prepCase c ++ "quelques" ; n = Pl ; s2 = []} ; ---- sp - someSg_Det = {s,sp = \\_,c => prepCase c ++ elision "quelqu" ; n = Sg ; s2 = []} ; ----sp + someSg_Det = {s,sp = \\_,c => prepCase c ++ "quelque" ; n = Sg ; s2 = []} ; ----sp something_NP = pn2np (mkPN ["quelque chose"] Masc) ; somewhere_Adv = ss ["quelque part"] ; --- ne - pas diff --git a/lib/src/romance/VerbRomance.gf b/lib/src/romance/VerbRomance.gf index 8e984f79d..40e34e385 100644 --- a/lib/src/romance/VerbRomance.gf +++ b/lib/src/romance/VerbRomance.gf @@ -74,7 +74,10 @@ incomplete concrete VerbRomance of Verb = UseComp comp = insertComplement comp.s (predV copula) ; CompAP ap = {s = \\ag => let agr = complAgr ag in ap.s ! AF agr.g agr.n} ; - CompCN cn = { s = \\ag => let agr = complAgr ag in cn.s ! agr.n}; --- RE 7/12/2010 + CompCN cn = { s = \\ag => + let agr = complAgr ag in + artIndef cn.g agr.n Nom ++ cn.s ! agr.n + }; --- RE 7/12/2010 -- AR added indef 2/8/2011 CompNP np = {s = \\_ => (np.s ! Nom).ton} ; CompAdv a = {s = \\_ => a.s} ;