checked words for wsj-100 experiments

lib/src/api/TryFin.gf

@@ -1,3 +1,3 @@
 --# -path=.:alltenses:prelude
 
-resource TryFin = SyntaxFin, LexiconFin-[mkOrd], ParadigmsFin - [mkAdv] ;
+resource TryFin = SyntaxFin, LexiconFin-[mkOrd], ParadigmsFin - [mkAdv,mkAdN,mkDet,mkQuant,mkPConj] ;

lib/src/finnish/stemmed/ElimPredef.hs

@@ -3,7 +3,7 @@ import qualified Data.Set as S
 -- comment out words that are predefined in another lexicon
 -- runghc ElimPredef.hs <DictEngFin.gf
 removeFile = "todo.txt"
-removeMsg = "LLLL"
+removeMsg = "WWWW"
 
 -- also used for temporarily eliminating whatever from compilation
 --removeFile = "commentOut"

lib/src/finnish/stemmed/ParadigmsFin.gf

@@ -129,8 +129,12 @@ oper
 
 -- Nouns where the parts are separate (should perhaps be treated as CN)
 
-   separateN : Str -> N -> N 
-    = \s,n -> mkN (s + "_") n ;
+   separateN = overload {
+     separateN : Str -> N -> N 
+      = \s,n -> mkN (s + "_") n ;
+     separateN : N -> N -> N 
+      = \oma, asunto -> lin N {s = \\c => oma.s ! c + "_" + asunto.s ! c ; h = asunto.h} ;
+      } ;
 
 -- Nouns used as functions need a case, of which the default is
 -- the genitive.

lib/src/finnish/stemmed/SymbolFin.gf

@@ -3,7 +3,7 @@
 concrete SymbolFin of Symbol = CatFin ** open Prelude, NounFin, ResFin, MorphoFin, StemFin in {
 
 lin
-  SymbPN i = {s = \\c => i.s ++ bindIfS c ++ defaultStemEnding c ; h = Back} ; --- c
+  SymbPN i = {s = \\c => i.s ++ bindColonIfS c ++ defaultStemEnding c ; h = Back} ; --- c
   IntPN i  = {s = \\c => i.s ++ bindColonIfS c ++ defaultStemEnding c ; h = Back} ; --- c
   FloatPN i  = {s = \\c => i.s ++ bindColonIfS c ++ defaultStemEnding c ; h = Back} ; --- c
   NumPN i  = {s = \\c => i.s!Sg!Nom  ; h = Back} ; --- c