added Noun.ApposCN

This commit is contained in:
aarne
2006-03-17 11:01:09 +00:00
parent f294828600
commit 3628ee2960
6 changed files with 31 additions and 5 deletions

View File

@@ -68,4 +68,6 @@ concrete NounEng of Noun = CatEng ** open ResEng, Prelude in {
SentCN cn sc = {s = \\n,c => cn.s ! n ! c ++ sc.s} ;
ApposCN cn np = {s = \\n,c => cn.s ! n ! Nom ++ np.s ! c} ;
}