soundness checks in Romance smart V paradigms to eliminate non-verbs

This commit is contained in:
aarne
2014-12-07 13:07:07 +00:00
parent 122230cdc0
commit a080258582
4 changed files with 36 additions and 6 deletions

View File

@@ -229,7 +229,8 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
_ + "cer" => conj1placer parler ;
_ + "ger" => conj1manger parler ;
_ + "yer" => conj1payer parler ;
_ => conj1aimer parler
_ + "er" => conj1aimer parler ;
_ => Predef.error ("verb infinitive must end er/ir/re, not satisfied by" ++ parler)
} ;
-- The following can be more reliable.