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

@@ -129,4 +129,10 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
g = cn.g
} ;
ApposCN cn np = let g = cn.g in {
s = \\a,n,c => cn.s ! a ! n ! c ++ np.s ! c ;
g = g ;
isMod = cn.isMod
} ;
}