Fre and Ita: elision with BIND

This commit is contained in:
aarne
2014-03-17 16:29:11 +00:00
parent a229c539e9
commit b7f1975be2
3 changed files with 4 additions and 4 deletions

View File

@@ -29,7 +29,7 @@ instance DiffFre of DiffRomance - [
artDef : Gender -> Number -> Case -> Str = \g,n,c ->
case <g,n,c> of {
<Masc,Sg, CPrep P_de> => pre {"du" ; ["de l'"] / voyelle} ;
<Masc,Sg, CPrep P_de> => pre {"du" ; ("de l'" ++ Predef.BIND) / voyelle} ;
<Masc,Sg, CPrep P_a> => pre {"au" ; ["à l'"] / voyelle} ;
<Masc,Sg, _> => elisLe ;
<Fem, Sg, _> => prepCase c ++ elisLa ;