fixed Scandinavian bugs in exx-resource

This commit is contained in:
aarne
2008-06-20 20:42:26 +00:00
parent 2f8a83b883
commit 23793d3353
24 changed files with 101 additions and 92 deletions

View File

@@ -68,9 +68,9 @@ instance DiffDan of DiffScand = open CommonScand, Prelude in {
} ;
relPron : GenNum => RCase => Str = \\gn,c => case c of {
RNom => "som" ;
RNom | RPrep False => "som" ;
RGen => "hvis" ;
RPrep => gennumForms "hvilken" "hvilket" "hvilke" ! gn
RPrep _ => gennumForms "hvilken" "hvilket" "hvilke" ! gn
} ;
pronSuch = gennumForms "sådan" "sådant" "sådanne" ;