From e1ada723753d5037aaa4af8c19f5e7dc4324016b Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 17 Sep 2012 07:01:33 +0000 Subject: [PATCH] bug fix in Dut.mkA --- src/dutch/ResDut.gf | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/dutch/ResDut.gf b/src/dutch/ResDut.gf index 9bbb25f1..e074d745 100644 --- a/src/dutch/ResDut.gf +++ b/src/dutch/ResDut.gf @@ -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" ;