constructor PositAdAAdj in Adverb, for most langs

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

View File

@@ -13,6 +13,8 @@ concrete AdverbFin of Adverb = CatFin ** open ResFin, Prelude in {
AdAdv = cc2 ;
PositAdAAdj a = {s = a.s ! Posit ! AN (NCase Sg Gen)} ; -- älyttömän
SubjS = cc2 ;
----b AdvSC s = s ;