forked from GitHub/gf-core
hfix the definitive article in case of NP with postmodifing AP
This commit is contained in:
@@ -159,7 +159,10 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
|
|||||||
|
|
||||||
|
|
||||||
AdjCN ap cn = {
|
AdjCN ap cn = {
|
||||||
s = \\nf => preOrPost ap.isPre (ap.s ! nform2aform nf cn.g) (cn.s ! (indefNForm nf)) ;
|
s = \\nf => case ap.isPre of {
|
||||||
|
True => (ap.s ! nform2aform nf cn.g) ++ (cn.s ! (indefNForm nf)) ;
|
||||||
|
False => (cn.s ! nf) ++ (ap.s ! nform2aform (indefNForm nf) cn.g)
|
||||||
|
} ;
|
||||||
g = cn.g
|
g = cn.g
|
||||||
} ;
|
} ;
|
||||||
RelCN cn rs = {
|
RelCN cn rs = {
|
||||||
|
|||||||
Reference in New Issue
Block a user