Added ExtAdvS separate from AdvS in Sentence

This commit is contained in:
aarne
2011-08-03 15:19:39 +00:00
parent 930d9ab752
commit 2d91016760
6 changed files with 12 additions and 4 deletions

View File

@@ -60,6 +60,7 @@ concrete SentenceFin of Sentence = CatFin ** open Prelude, ResFin in {
} ;
AdvS a s = {s = a.s ++ s.s} ;
ExtAdvS a s = {s = a.s ++ "," ++ s.s} ;
RelS s r = {s = s.s ++ "," ++ r.s ! agrP3 Sg} ; ---- mikä