Finnish suffixes

lib/resource/finnish/BasicFin.gf

@@ -170,8 +170,8 @@ lin
   shop_N = regN "shop" ;
   short_ADeg = regADeg "short" ;
   silver_N = regN "silver" ;
-  sister_N = regN "sister" ;
 -}
+  sister_N = regN "sisko" ;
   sleep_V = regV "uinua" ;
 {-
   small_ADeg = regADeg "small" ;

lib/resource/finnish/LangFin.gf

@@ -9,6 +9,9 @@ concrete LangFin of Lang =
 ----  CountryEng
 
    ** open Prelude, ParadigmsFin in {
+
+flags unlexer=finnish ;
+
 {-
 lin
   AdvDate d = prefixSS "on" d ;

lib/resource/finnish/MorphoFin.gf

@@ -628,7 +628,7 @@ getHarmony : Str -> Str = \u -> case u of {
 -- as a separate word ("auto &+ ni"), which needs unlexing. Unlexing also
 -- has to fix the vowel harmony in cases like "äiti &+ nsä".
 
-  suff : Str -> Str = \ni -> BIND ++ ni ;
+  suff : Str -> Str = \ni -> ni ;
 
   possSuffix : Number => Person => Str = \\n,p => 
     suff (case <n,p> of {

lib/resource/finnish/SyntaxFin.gf

@@ -13,7 +13,8 @@ resource SyntaxFin = MorphoFin ** open Prelude, (CO = Coordination) in {
 -- To glue a particle to the preceding word. The lexer and unlexer
 -- are expected to deal with actual gluing and vowel harmony.
 
- glueParticle : Str -> Str -> Str = \word,part -> word ++ "&*" ++ part ;
+  oper
+  glueParticle : Str -> Str -> Str = \word,part -> word ++ "&*" ++ part ;
 
 --2 Common Nouns
 --
@@ -262,7 +263,7 @@ oper
   ifPossSuffix : CommNounPhrase -> NPPerson -> Number -> Case -> Str = 
     \talo,np,n,c -> case np of {
       NP3   => talo.s ! False ! n ! c ;
-      NPP p => talo.s ! True ! n ! c ++ possSuffix ! n ! p
+      NPP p => glueParticle (talo.s ! True ! n ! c) (possSuffix ! n ! p)
     } ;
 
 -- *Bare plural noun phrases*, like "koivut" in "koivut ovat valkoisia",