smart paradigm for refl verbs ending "se" in Spa

This commit is contained in:
aarne
2014-04-08 20:28:27 +00:00
parent 70dddec7e1
commit 2ca8024ba4
2 changed files with 5 additions and 2 deletions

View File

@@ -503,7 +503,10 @@ oper
prefixA = prefA ;
mkV = overload {
mkV : (pagar : Str) -> V = regV ;
mkV : (pagar : Str) -> V = \s -> case s of {
far + "se" => reflV (regV far) ;
_ => regV s
} ;
mkV : (mostrar,muestro : Str) -> V = regAltV ;
mkV : Verbum -> V = verboV ;