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

yet another improvement of mkV 2 in ParadigmsEng (but this is not a very useful paradigm)

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

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

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