1
0
forked from GitHub/gf-core

hfix the definitive article in case of NP with postmodifing AP

This commit is contained in:
krasimir
2008-06-23 11:13:28 +00:00
parent 8fe8e8ad8a
commit 0122ef5889

View File

@@ -159,7 +159,10 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
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
} ;
RelCN cn rs = {