swadesh fixes; bug fix in i -old

This commit is contained in:
aarne
2005-03-14 16:40:08 +00:00
parent 4ee07b156e
commit 0d0da43253
14 changed files with 82 additions and 56 deletions

View File

@@ -226,6 +226,8 @@ oper mkTal : Str -> Str -> Str -> {s : DForm => Str} =
\to, tolv, tyve ->
{s = table {ental => to ; ton => tolv ; tiotal => tyve}} ;
oper regTal : Str -> {s : DForm => Str} = \fem -> mkTal fem (fem + "ton") (fem + "tio") ;
numPl : Str -> {s : Gender => Str ; n : Number} = \n ->
{s = \\_ => n ; n = Pl} ;
}