German verbs with -ieren

This commit is contained in:
aarne
2011-03-08 21:07:17 +00:00
parent 1e4ec3c7d2
commit eabe7fa629

View File

@@ -427,7 +427,10 @@ mkV2 : overload {
frag = stemVerb fragen ; frag = stemVerb fragen ;
fragt = verbT frag ; fragt = verbT frag ;
fragte = fragt + "e" ; fragte = fragt + "e" ;
gefragt = "ge" + fragt ; gefragt : Str = case frag of {
_ + "ier" => fragt ;
_ => "ge" + fragt
} ;
in in
mk6V fragen fragt (frag + "e") fragte fragte gefragt ; mk6V fragen fragt (frag + "e") fragte fragte gefragt ;