Turkish: bugfix in mkPron

This commit is contained in:
krasimir
2009-05-08 08:20:38 +00:00
parent 8b69008815
commit 4b8f868975

View File

@@ -50,16 +50,18 @@ resource ResTur = ParamX ** open Prelude, Predef in {
ten => twenty
}
} ;
mkPron : (ben,beni,bana,banin,bende,benden:Str) -> Number -> Person -> Pron =
\ben,beni,bana,benim,bende,benden,n,p -> {
mkPron : (ben,beni,bana,banin,bende,benden,benli,bensiz:Str) -> Number -> Person -> Pron =
\ben,beni,bana,benim,bende,benden,benli,bensiz,n,p -> {
s = table {
Nom => ben ;
Acc => beni ;
Dat => bana ;
Gen => benim ;
Loc => bende ;
Abl => benden
Ablat => benden ;
Abess Pos => benli ;
Abess Neg => bensiz
} ;
a = {n=n; p=p} ;
} ;