add "na" if possess_Prep is used

This commit is contained in:
krasimir
2008-06-13 22:41:15 +00:00
parent 1ad2aad18f
commit 19ac91fa21

View File

@@ -23,7 +23,7 @@ concrete RelativeBul of Relative = CatBul ** open ResBul in {
} ;
FunRP p np rp = {
s = \\gn => np.s ! RObj Acc ++ p.s ++ rp.s ! gn ;
s = \\gn => np.s ! RObj Acc ++ p.s ++ (case p.c of {Acc => []; Dat => "íà"}) ++ rp.s ! gn ;
} ;
IdRP = {