fixed definite articles with superlatives in Scandinavian

This commit is contained in:
aarne
2010-04-29 12:32:07 +00:00
parent 44a1e35b42
commit e104833f1f

View File

@@ -46,9 +46,9 @@ incomplete concrete NounScand of Noun =
} ; } ;
DetQuantOrd quant num ord = { DetQuantOrd quant num ord = {
s = \\b,g => quant.s ! num.n ! b ! (orB b num.isDet) ! g ++ s = \\b,g => quant.s ! num.n ! b ! True ! g ++
num.s ! g ++ ord.s ; num.s ! g ++ ord.s ;
sp = \\b,g => quant.s ! num.n ! b ! (orB b num.isDet) ! g ++ sp = \\b,g => quant.s ! num.n ! b ! True ! g ++
num.s ! g ++ ord.s ; num.s ! g ++ ord.s ;
n = num.n ; n = num.n ;
det = quant.det det = quant.det