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

Fix "considerred" etc. in English verbs

Browse Source
This commit is contained in:
John J. Camilleri
2017-12-22 12:36:12 +01:00
parent b8714eada0
commit d534f3e13b
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/english/ParadigmsEng.gf
View File

@@ -506,12 +506,14 @@ mkInterj : Str -> Interj
cries = (regN cry).s ! Pl ! Nom ; -- !
cried : Str = case cries of {
_ + "es" => init cries + "d" ;
_ + "ers" => init cries + "ed" ;
_ => duplFinal cry + "ed"
} ;
crying : Str = case cry of {
_ + "ee" => cry + "ing" ;
d + "ie" => d + "ying" ;
us + "e" => us + "ing" ;
ent + "er" => ent + "ered" ;
_ => duplFinal cry + "ing"
}
in mk5V cry cries cried cried crying ;