constructor PositAdAAdj in Adverb, for most langs

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

No files matched your search

+4
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
} ;