constructor PositAdAAdj in Adverb, for most langs

This commit is contained in:
aarne
2010-11-19 16:49:30 +00:00
parent 48a327ddee
commit 94d818c60a
9 changed files with 23 additions and 3 deletions

View File

@@ -16,6 +16,10 @@ incomplete concrete AdverbRomance of Adverb =
AdAdv = cc2 ;
PositAdAAdj a = {
s = a.s ! Posit ! AA
} ;
SubjS subj s = {
s = subj.s ++ s.s ! subj.m
} ;