diff --git a/lib/src/italian/DiffIta.gf b/lib/src/italian/DiffIta.gf index 3052b14bc..ee7587783 100644 --- a/lib/src/italian/DiffIta.gf +++ b/lib/src/italian/DiffIta.gf @@ -52,7 +52,7 @@ instance DiffIta of DiffRomance = open CommonRomance, PhonoIta, BeschIta, Prelud artIndef = \g,n,c -> case of { => prepCase c ++ - genForms (elision "un" "un" "uno") (elision "una" "un'" "una") ! g ; + genForms (pre {"un" ; "uno" / sImpuro}) (elision "una" "un'" "una") ! g ; _ => prepCase c } ; diff --git a/lib/src/italian/PhonoIta.gf b/lib/src/italian/PhonoIta.gf index f4e4f1f7a..3effa3d80 100644 --- a/lib/src/italian/PhonoIta.gf +++ b/lib/src/italian/PhonoIta.gf @@ -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 } diff --git a/lib/src/italian/StructuralIta.gf b/lib/src/italian/StructuralIta.gf index 1270b07a5..257e9ecb6 100644 --- a/lib/src/italian/StructuralIta.gf +++ b/lib/src/italian/StructuralIta.gf @@ -81,7 +81,7 @@ lin mkPronoun "lei" "la" "le" "glie" "lei" "suo" "sua" "suoi" "sue" Fem Sg P3 ; - so_AdA = ss "così" ; + so_AdA = ss "così" ; somebody_NP = pn2np (mkPN ["qualcuno"] Masc) ; somePl_Det = {s,sp = \\_,c => prepCase c ++ "qualche" ; n = Pl ; s2 = [] ; isNeg = False} ; someSg_Det = {s,sp = \\_,c => prepCase c ++ "qualche" ; n = Sg ; s2 = [] ; isNeg = False} ;