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

(Eng) ize~ise variants in us_britishV

Browse Source
This commit is contained in:
Inari Listenmaa
2023-08-04 16:29:01 +08:00
parent 22a168198b
commit f7e9357ed4
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

@@ -616,6 +616,8 @@ mkVoc s = lin Voc (ss s) ;
us_britishV : Str -> V = \s -> case s of { us_britishV : Str -> V = \s -> case s of {
_ + ("el" | "al" | "ol") => regV s | mkV s (s + "s") (s + "led") (s + "led") (s + "ling") ; _ + ("el" | "al" | "ol") => regV s | mkV s (s + "s") (s + "led") (s + "led") (s + "ling") ;
_ + "or" => regV s | regV (Predef.tk 2 s + "our") ; _ + "or" => regV s | regV (Predef.tk 2 s + "our") ;
_ + "ise" => regV (Predef.tk 2 s + "ze") | regV s ;
_ + "ize" => regV s | regV (Predef.tk 2 s + "se") ;
_ => regV s _ => regV s
} ; } ;