fixed type errors in finnish revealed by improved type checker

2026-06-28 20:36:29 -06:00 · 2014-04-04 16:38:36 +00:00
parent f81318a39d
commit e77e6fb7e4
2 changed files with 6 additions and 8 deletions
@@ -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