french lexicon bug fixes

This commit is contained in:
aarne
2007-01-15 16:50:06 +00:00
parent 2f9319d7fd
commit 69e0d13380
3 changed files with 11 additions and 121 deletions

View File

@@ -480,6 +480,7 @@ oper
"yer" => conj1payer parler ;
_ => case Predef.dp 2 parler of {
"ir" => conj2finir parler ;
"re" => conj3rendre parler ;
_ => conj1aimer parler
}
}

View File

@@ -101,7 +101,9 @@ lin
Masc Pl P3 ;
this_Quant = {s = \\_ =>
table {
Sg => \\g,c => prepCase c ++ genForms "ce" "cette" ! g ; ---- cet ; ci
Sg => \\g,c =>
prepCase c ++
genForms (pre {"ce" ; "cet" / voyelle}) "cette" ! g ; --- ci
Pl => \\_,_ => "ces"
}
} ;