diff options
Diffstat (limited to 'next-lib/src/finnish/AdjectiveFin.gf')
| -rw-r--r-- | next-lib/src/finnish/AdjectiveFin.gf | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/next-lib/src/finnish/AdjectiveFin.gf b/next-lib/src/finnish/AdjectiveFin.gf index 737887d17..ee6bc58dd 100644 --- a/next-lib/src/finnish/AdjectiveFin.gf +++ b/next-lib/src/finnish/AdjectiveFin.gf @@ -13,6 +13,9 @@ concrete AdjectiveFin of Adjective = CatFin ** open ResFin, Prelude in { _ => a.s ! Compar ! AN af ++ "kuin" ++ np.s ! NPCase Nom -- isompi kuin minä } } ; + CAdvAP ad ap np = { + s = \\m,af => ad.s ++ ap.s ! m ! af ++ ad.p ++ np.s ! NPCase Nom + } ; UseComparA a = { s = \\_,nf => a.s ! Compar ! AN nf ; } ; |