fixed type errors in finnish revealed by improved type checker

2014-04-04 16:38:36 +00:00
parent 0ae79efdbf
commit 0577ec19a4
2 changed files with 6 additions and 8 deletions
--- a/lib/src/finnish/NounFin.gf
+++ b/lib/src/finnish/NounFin.gf
@@ -185,13 +185,13 @@ concrete NounFin of Noun = CatFin ** open ResFin, MorphoFin, StemFin, Prelude in
    UseN2 n = snoun2nounSep n ;

    Use2N3 f = {
-      s = (snoun2nounSep f).s ;
+      s = f.s ;
      c2 = f.c2 ;
      h = f.h ;
      isPre = f.isPre
      } ;
    Use3N3 f = {
-      s = (snoun2nounSep f).s ;
+      s = f.s ;
      c2 = f.c3 ;
      h = f.h ;
      isPre = f.isPre2