adjustments in Phrasebook

2010-05-27 20:44:39 +00:00
parent 27ff25e82d
commit 327ffc420e
7 changed files with 34 additions and 23 deletions
--- a/lib/src/german/ResGer.gf
+++ b/lib/src/german/ResGer.gf
@@ -320,7 +320,12 @@ resource ResGer = ParamX ** open Prelude in {
    mkN wein wein wein weines weine weinen ;

  regA : Str -> Adjective = \blau ->
-    mkA blau blau (blau + "er") (blau + "est") ;
+   let blauest : Str = case blau of {
+     _ + ("t" | "d" | "s" | "sch" | "z") => blau + "est" ;
+     _ => blau + "st"
+   }
+   in
+   mkA blau blau (blau + "er") blauest ;

  regV : Str -> Verb = \legen ->
    let