diff --git a/lib/src/dutch/IrregDut.gf b/lib/src/dutch/IrregDut.gf index bf55487a8..dc1ce8cee 100644 --- a/lib/src/dutch/IrregDut.gf +++ b/lib/src/dutch/IrregDut.gf @@ -176,7 +176,7 @@ lin wrijven_V = mkV "wrijven" "wreef" "wreven" "gewreven" ; lin wringen_V = mkV "wringen" "wrong" "wrongen" "gewrongen" ; lin zeggen_V = mkV "zeggen" "zei" "zeiden" "gezegd" ; lin zenden_V = mkV "zenden" "zond" "zonden" "gezonden" ; -lin zien_V = mkV "zien" "ziet" "zien" "zag" "zagen" "gezien" ; +lin zien_V = mkV "zie" "ziet" "zien" "zag" "zagen" "gezien" ; lin zijgen_V = mkZijnV "zijgen" "zeeg" "zegen" "gezegen" ; lin zingen_V = mkV "zingen" "zong" "zongen" "gezongen" ; lin zinken_V = mkZijnV "zinken" "zonk" "zonken" "gezonken" ; diff --git a/lib/src/dutch/ParadigmsDut.gf b/lib/src/dutch/ParadigmsDut.gf index 7ad25ba69..978b88554 100644 --- a/lib/src/dutch/ParadigmsDut.gf +++ b/lib/src/dutch/ParadigmsDut.gf @@ -269,8 +269,12 @@ oper zijnV v = lin V (v2vvAux v VZijn) ; reflV v = lin V {s = v.s ; aux = v.aux ; particle = v.particle ; prefix = v.prefix ; vtype = VRefl} ; - partV : V -> Str -> V = \vinden,leuk -> - vinden ** {particle = leuk} ; + partV = overload { + partV : Str -> V -> V = \leuk,vinden -> + vinden ** {particle = leuk} ; + partV : V -> Str -> V = \vinden,leuk -> + vinden ** {particle = leuk} ; + } ; no_geV v = let vs = v.s in { s = table { diff --git a/lib/src/dutch/ResDut.gf b/lib/src/dutch/ResDut.gf index cd3aea8b8..c38286006 100644 --- a/lib/src/dutch/ResDut.gf +++ b/lib/src/dutch/ResDut.gf @@ -605,11 +605,20 @@ param } --# notpresent ; extra = vp.ext ; + + --for the Sub word order inffin = - case of { --# notpresent - => fin ++ inf ; -- double inf --# notpresent - _ => --# notpresent - inf ++ fin --- or just auxiliary vp + case of { --# notpresent + -- gezien zou/zal hebben + => vperf ++ fin ++ auxv ! VInf ; --# notpresent + => vperf ++ fin ++ auxv ! VInf ; --# notpresent + -- zou/zal zien + => fin ++ verb.p2 ; --# notpresent + => fin ++ verb.p2 ; --# notpresent + -- wil kunnen zien (first line in inf) + <_,Anter,True> => fin ++ inf ; -- double inf --# notpresent + _ => fin ++ inf --# notpresent + -- no inf ++ fin, this is not German :-P } --# notpresent in case o of {