From b7f1975be248a3c650d9c7d56dcd43ae350764ef Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Mon, 17 Mar 2014 16:29:11 +0000
Subject: [PATCH] Fre and Ita: elision with BIND

---
 lib/src/french/DiffFre.gf   | 2 +-
 lib/src/french/PhonoFre.gf  | 4 ++--
 lib/src/italian/PhonoIta.gf | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/src/french/DiffFre.gf b/lib/src/french/DiffFre.gf
index 9d5b7b9dc..fb14b2dd6 100644
--- a/lib/src/french/DiffFre.gf
+++ b/lib/src/french/DiffFre.gf
@@ -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 ;
diff --git a/lib/src/french/PhonoFre.gf b/lib/src/french/PhonoFre.gf
index 7ba88e958..2b0a3277c 100644
--- a/lib/src/french/PhonoFre.gf
+++ b/lib/src/french/PhonoFre.gf
@@ -12,12 +12,12 @@ oper
     "I" ; "Î" ; "O" ; "Ô" ; "U" ; "Û" ; "Y"
     } ;
 
-  elision : Str -> Str = \d -> d + pre {"e" ; "'" / voyelle} ;
+  elision : Str -> Str = \d -> d + pre {"e" ; ("'" ++ Predef.BIND) / voyelle} ;
 
 -- The following morphemes are the most common uses of elision.
 
   elisDe  = elision "d" ;
-  elisLa  = pre {"la" ; "l'" / voyelle} ;
+  elisLa  = pre {"la" ; ("l'" ++ Predef.BIND) / voyelle} ;
   elisLe  = elision "l" ;
   elisNe  = elision "n" ;
   elisQue = elision "qu" ;
diff --git a/lib/src/italian/PhonoIta.gf b/lib/src/italian/PhonoIta.gf
index 9ab861530..1d14ff99e 100644
--- a/lib/src/italian/PhonoIta.gf
+++ b/lib/src/italian/PhonoIta.gf
@@ -17,7 +17,7 @@ oper
     } ;
 
   elision : (_,_,_ : Str) -> Str = \il, l', lo -> 
-    pre {il ; l' / vocale ; lo / sImpuro} ;
+    pre {il ; (l' ++ Predef.BIND) / vocale ; lo / sImpuro} ;
 ---    pre {vocale => l' ;  sImpuro => lo ; _ => il} ;
 
 }