msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fixed ParadigmsEng mkV 2

Browse Source
This commit is contained in:
aarne
2011-10-23 18:17:13 +00:00
parent 6f7695c369
commit 08d038e982
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/src/english/ParadigmsEng.gf
View File

@@ -505,7 +505,10 @@ mkSubj : Str -> Subj = \s -> lin Subj {s = s} ; --%
reg2V fit fitted =
let fitt = Predef.tk 2 fitted ;
in mk5V fit (fit + "s") (fitt + "ed") (fitt + "ed") (fitt + "ing") ;
in
if_then_else V (pbool2bool (Predef.eqStr (init fitt) fit))
(mk5V fit (fit + "s") (fitt + "ed") (fitt + "ed") (fitt + "ing"))
(regV fit) ;
regDuplV fit =
case last fit of {