bug fix in French verbs

This commit is contained in:
aarne
2005-02-15 21:31:00 +00:00
parent 7985de3252
commit 9fa3db48bc
6 changed files with 11 additions and 10 deletions

View File

@@ -1,13 +1,12 @@
resource BeschFre = open Prelude, TypesFre, MorphoFre in {
oper VerbeN = {s : VForm => Str} ;
oper mkNV : Verbe -> VerbeN = \ve ->
{s = ve} ;
oper VerbeN = {s : VF => Str} ;
oper mkNV : Verbe -> VerbeN = \ve -> {s = vvf ve} ;
oper conj : Str -> Verbe = conj1aimer ; --- temp. default
oper v_nancy100inf : Str -> VerbeN = \ve -> {s = table {
Inf => ve ;
VInfin => ve ;
_ => nonExist
}
} ;