fixed a bug in PhonoIta.elision, which caused gluing of articles with nouns beginning with a vowel also when there was no apostrophe

2026-06-30 11:08:34 -06:00 · 2014-07-20 08:06:45 +00:00
parent 423fa50994
commit 78bd8f98a8
3 changed files with 4 additions and 3 deletions
@@ -17,7 +17,8 @@ oper
    } ;

  elision : (_,_,_ : Str) -> Str = \il, l', lo -> 
-    pre {il ; (l' ++ Predef.BIND) / vocale ; lo / sImpuro} ;
+    let ll = case last l' of {"'" => l' ++ Predef.BIND ; _ => l'} in
+    pre {il ; ll / vocale ; lo / sImpuro} ;
 ---    pre {vocale => l' ;  sImpuro => lo ; _ => il} ;  --- doesn't work properly 15/4/2014

 }