plural accusative case in Finnish

This commit is contained in:
aarne
2006-06-22 11:32:58 +00:00
parent 7efc60a809
commit 1823dca475
8 changed files with 24 additions and 22 deletions

View File

@@ -52,7 +52,7 @@ concrete QuestionFin of Question = CatFin ** open ResFin, Prelude in {
IDetCN idet num ord cn = let n = idet.n in {
s = \\c =>
let
k = npform2case c ;
k = npform2case n c ;
ncase = case <k,num.isNum> of {
<Nom, True> => NCase Sg Part ; -- mitkä kolme kytkintä
<_, True> => NCase Sg k ; -- miksi kolmeksi kytkimeksi