corrected Dut.mkA for -ig ; ferris wheel in a few Dictionaries

This commit is contained in:
aarne
2015-04-15 20:43:43 +00:00
parent 23992d412d
commit 295f4afd54
9 changed files with 9 additions and 0 deletions

View File

@@ -84,6 +84,7 @@ resource ResDut = ParamX ** open Prelude, Predef in {
let
se : Str = case s of {
_ + "er" => s + "e" ; ----
_ + "ig" => s + "e" ;
_ + ("i"|"u"|"ij") => endCons s + "e" ;
b + v@("aa"|"ee"|"oo"|"uu") + c@? => b + shortVoc v c + "e" ;
b + ("ei"|"eu"|"oe"|"ou"|"ie"|"ij"|"ui") + ? => endCons s + "e" ;