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

@@ -58,6 +58,7 @@ incomplete concrete SentenceScand of Sentence =
} ;
AdvS a s = {s = \\o => a.s ++ s.s ! Inv} ;
ExtAdvS a s = {s = \\o => a.s ++ "," ++ s.s ! Inv} ;
RelS s r = {s = \\o => s.s ! o ++ "," ++ r.s ! agrP3 Neutr Sg} ; --- vilket