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

bug fix in Dut.mkA

Browse Source
This commit is contained in:
aarne
2012-09-17 07:01:33 +00:00
parent 745a949980
commit 4b1202a0a0
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/dutch/ResDut.gf
View File

@@ -83,7 +83,7 @@ resource ResDut = ParamX ** open Prelude in {
let
se : Str = case s of {
_ + "er" => s + "e" ; ----
_ + ("i"|"u") => endCons 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" ;
b + v@("a"|"e"|"i"|"o"|"u" ) + c@? => b + v + c + c + "e" ;