diff --git a/src/arabic/VerbAra.gf b/src/arabic/VerbAra.gf index e95e3eeab..c57e9cc10 100644 --- a/src/arabic/VerbAra.gf +++ b/src/arabic/VerbAra.gf @@ -35,7 +35,7 @@ concrete VerbAra of Verb = CatAra ** open Prelude, ResAra in { -- -- ReflV2 v = insertObj (\\a => v.c2 ++ reflPron ! a) (predV v) ; -- --- PassV2 v = insertObj (\\_ => v.s ! VPPart) (predAux auxBe) ; + PassV2 v = kaan {s = \\_,_ => v.s ! VPPart} ; ---- IL guessed -- -- UseVS, UseVQ = \vv -> {s = vv.s ; c2 = [] ; isRefl = vv.isRefl} ; -- no