eliminated one parameter from Fre, resulting in twice as fast compilation

This commit is contained in:
aarne
2014-11-30 12:53:50 +00:00
parent 12cd4ea245
commit 76abd1e66f
12 changed files with 260 additions and 110 deletions

View File

@@ -515,9 +515,9 @@ oper
dirV3 : V -> Prep -> V3 ; -- donner,_,à
dirdirV3 : V -> V3 ; -- donner,_,_
getVerbT : (VF => Str) -> Bool = \v -> case last (v ! (VFin (VPres Indic) Sg P3)) of {
"a" | "e" => True ; -- parle-t-il, va-t-il
_ => False -- prend-il
getVerbT : (VF => Str) -> VBool = \v -> case last (v ! (VFin (VPres Indic) Sg P3)) of {
"a" | "e" => VTrue ; -- parle-t-il, va-t-il
_ => VFalse -- prend-il
} ;