further clean-up in DictionaryIta and Spa

This commit is contained in:
aarne
2014-04-08 20:21:37 +00:00
parent d7e25e7bdd
commit 70dddec7e1
3 changed files with 156 additions and 153 deletions

View File

@@ -506,7 +506,10 @@ oper
regADeg : Str -> A ;
mkV = overload {
mkV : Str -> V = regV ;
mkV : Str -> V = \s -> case s of {
_ + "rsi" => reflV (regV (Predef.tk 2 s + "e")) ;
_ => regV s
} ;
mkV : Verbo -> V = verboV ;
mkV :
(udire,odo,ode,udiamo,udiro,udii,udisti,udi,udirono,odi,udito : Str) -> V = mk11V ;