1
0
forked from GitHub/gf-rgl

fix for with_Pron

This commit is contained in:
Krasimir Angelov
2018-06-23 22:45:51 +02:00
parent e90aa08934
commit 66f1ff9b05

View File

@@ -38,8 +38,9 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
DetNP det =
{ s = \\role => let s = det.s ! False ! ANeut ! role
in case role of {
RObj Dat => "íà" ++ s;
_ => s
RObj Dat => "íà" ++ s;
RObj WithPrep => with_Word ++ s;
_ => s
} ;
a = {gn = gennum ANeut (numnnum det.nn); p = P3} ;
p = Pos
@@ -47,7 +48,7 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
UsePN pn = { s = table {
RObj Dat => "íà" ++ pn.s;
RObj WithPron => with_Word ++ pn.s;
RObj WithPrep => with_Word ++ pn.s;
_ => pn.s
} ;
a = {gn = GSg pn.g; p = P3} ;