German verbs with -ieren

2011-03-08 21:07:17 +00:00
parent 1e4ec3c7d2
commit eabe7fa629
1 changed files with 4 additions and 1 deletions
--- a/lib/src/german/ParadigmsGer.gf
+++ b/lib/src/german/ParadigmsGer.gf
@@ -427,7 +427,10 @@ mkV2 : overload {
      frag    = stemVerb fragen ;
      fragt   = verbT frag ;
      fragte  = fragt + "e" ;
-      gefragt = "ge" + fragt ;
+      gefragt : Str = case frag of {
+        _ + "ier" => fragt ;
+        _ => "ge" + fragt
+        } ;
    in
    mk6V fragen fragt (frag + "e") fragte fragte gefragt ;