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

Dutch s -> z rule restricted more

Browse Source
This commit is contained in:
aarne
2010-05-29 09:17:48 +00:00
parent f234806aab
commit 0c32ae12a3
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

@@ -53,7 +53,7 @@ resource ResDut = ParamX ** open Prelude in {
shortVoc : Str -> Str -> Str = \v,s -> init v + endCons s ; shortVoc : Str -> Str -> Str = \v,s -> init v + endCons s ;
endCons : Str -> Str = \s -> case s of { endCons : Str -> Str = \s -> case s of {
_ + ("ts" |"rs" | "ls") => s ; _ + ("ts" |"rs" | "ls" | "ds" | "ns" | "ms") => s ;
b + "s" => b + "z" ; b + "s" => b + "z" ;
b + "f" => b + "v" ; b + "f" => b + "v" ;
_ => s _ => s