Added ExtAdvS separate from AdvS in Sentence

2011-08-03 15:19:39 +00:00
parent 930d9ab752
commit 2d91016760
6 changed files with 12 additions and 4 deletions
--- a/lib/src/finnish/SentenceFin.gf
+++ b/lib/src/finnish/SentenceFin.gf
@@ -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ä