fixed place of infinitive particle in german fixed prefix

This commit is contained in:
aarne
2009-12-17 09:24:16 +00:00
parent 371aa3848c
commit 3e79540035

View File

@@ -436,6 +436,7 @@ mkV2 : overload {
fixprefixV s v = let vs = v.s in {
s = table {
VInf True => "zu" ++ (s + vs ! VInf False) ;
p@(VPastPart _) => s + Predef.drop 2 (vs ! p) ;
p => s + vs ! p
} ;