testing Hrv smart paradigms against Wiktionary

This commit is contained in:
aarneranta
2022-10-12 12:30:24 +02:00
parent 43a742c91e
commit dc19b6a88a
5 changed files with 73 additions and 3 deletions
+1
View File
@@ -427,6 +427,7 @@ adjFormsAdjective : AdjForms -> Adjective = \afs -> {
cit + "ati" => aeiVerbForms s (cit + "am") (cit + "ao") ;
vid + "jeti" => aeiVerbForms s (vid + "im") (vid + "io") ;
radi + "ti" => aeiVerbForms s (init radi + "em") (radi + "o") ;
radi + ? => aeiVerbForms s (init radi + "em") (radi + "o") ; ----
_ => Predef.error ("expect infinitive form \"-ti\", found" ++ s)
} ;