German and Dutch adjectives with -er corrected

2010-08-23 07:43:58 +00:00
parent f2308d174f
commit 62e687869e
5 changed files with 53 additions and 10 deletions
--- a/lib/src/dutch/ResDut.gf
+++ b/lib/src/dutch/ResDut.gf
@@ -82,6 +82,7 @@ resource ResDut = ParamX ** open Prelude in {
    regAdjective : Str -> Adjective = \s ->  ----
      let 
        se : Str = case s of {
+          _ + "er"      => s + "e" ; ---- 
          _ + ("i"|"u") => 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" ;