From 0c32ae12a399fc2e5aa071cab88b2f60b3e81482 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 29 May 2010 09:17:48 +0000 Subject: [PATCH] Dutch s -> z rule restricted more --- 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 8bec038e4..1e4703e5b 100644 --- a/lib/src/dutch/ResDut.gf +++ b/lib/src/dutch/ResDut.gf @@ -53,7 +53,7 @@ resource ResDut = ParamX ** open Prelude in { shortVoc : Str -> Str -> Str = \v,s -> init v + endCons s ; endCons : Str -> Str = \s -> case s of { - _ + ("ts" |"rs" | "ls") => s ; + _ + ("ts" |"rs" | "ls" | "ds" | "ns" | "ms") => s ; b + "s" => b + "z" ; b + "f" => b + "v" ; _ => s