forked from GitHub/gf-rgl
fix for with_Pron
This commit is contained in:
@@ -39,6 +39,7 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
|
||||
{ s = \\role => let s = det.s ! False ! ANeut ! role
|
||||
in case role of {
|
||||
RObj Dat => "íà" ++ s;
|
||||
RObj WithPrep => with_Word ++ s;
|
||||
_ => s
|
||||
} ;
|
||||
a = {gn = gennum ANeut (numnnum det.nn); p = P3} ;
|
||||
@@ -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} ;
|
||||
|
||||
Reference in New Issue
Block a user