diff --git a/lib/src/experimental/PredicationSwe.gf b/lib/src/experimental/PredicationSwe.gf index 59c769640..8fd0b42f8 100644 --- a/lib/src/experimental/PredicationSwe.gf +++ b/lib/src/experimental/PredicationSwe.gf @@ -659,10 +659,11 @@ oper => } ; - tenseInfV : Str -> Anteriority -> Voice -> V -> Str * Str = \sta,a,o,v -> - case a of { - Simul => <[], sta ++ v.v ! TV o VInf> ; -- hon vill sova - Anter => -- hon vill (ha) sovit + tenseInfV : Str -> Anteriority -> Voice -> V -> Str * Str = \sta,a,o,v -> + let tenseMark = [] ---- sta, will produce ambiguity instead of metavariable + in case a of { + Simul => <[], tenseMark ++ v.v ! TV o VInf> ; -- hon vill sova + Anter => -- hon vill (ha) sovit } ;