From 4b1202a0a038be4bf9c79d8de83afd06f3a86d1e 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 --- lib/src/dutch/ResDut.gf | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/src/dutch/ResDut.gf b/lib/src/dutch/ResDut.gf index 9bbb25f18..e074d7458 100644 --- a/lib/src/dutch/ResDut.gf +++ b/lib/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" ;