refactored adjectives in StemFin to get correct tags in tagged/

2026-06-29 04:46:30 -06:00 · 2016-09-22 06:33:43 +00:00
parent 9c4cb67da8
commit 58df464c6a
5 changed files with 18 additions and 8 deletions
@@ -151,7 +151,7 @@ concrete NounFin of Noun = CatFin ** open ResFin, MorphoFin, StemFin, Prelude in
      n = num.n
      } ;

-    OrdSuperl a = snoun2nounSep {s = \\nc => a.s ! Superl ! sAN nc ; h = a.h} ; 
+    OrdSuperl a = {s = sAdjFull2nforms Superl a ; h = a.h} ;

    OrdNumeralSuperl n a = -- kolmanneksi suurin
      {s = \\f => n.s ! NOrd (NCase Sg Transl) ++ (snoun2nounSep {s = \\nc => a.s ! Superl ! sAN nc ; h = a.h}).s ! f} ;