diff --git a/src/arabic/CatAra.gf b/src/arabic/CatAra.gf index 8dc9a1af6..641b31daa 100644 --- a/src/arabic/CatAra.gf +++ b/src/arabic/CatAra.gf @@ -82,9 +82,8 @@ concrete CatAra of Cat = CommonX - [Utt] ** open ResAra, Prelude, ParamX in { V, VS, VQ, VA = ResAra.Verb ; -- = {s : VForm => Str} ; V2, V2A = ResAra.Verb ** {c2 : Str} ; - V2V, V2S, V2Q = ResAra.Verb ** {c2 : Str} ; --- AR + VV, V2V, V2S, V2Q = ResAra.Verb ** {c2 : Str} ; --- AR V3 = ResAra.Verb ** {c2, c3 : Str} ; - VV = ResAra.Verb ** {c2 : Str ; isAux : Bool} ; --- IL A = ResAra.Adj ; A2 = ResAra.Adj ** {c2 : Str} ; diff --git a/src/arabic/ParadigmsAra.gf b/src/arabic/ParadigmsAra.gf index 3ef6236ea..d57ccdf0d 100644 --- a/src/arabic/ParadigmsAra.gf +++ b/src/arabic/ParadigmsAra.gf @@ -519,7 +519,7 @@ resource ParadigmsAra = open mkVS v = v ** {lock_VS = <>} ; mkVQ v = v ** {lock_VQ = <>} ; - regVV : V -> VV = \v -> lin VV v ** {isAux = False; c2 = []} ; + regVV : V -> VV = \v -> lin VV v ** {c2 = []} ; c2VV : V -> Str -> VV = \v,prep -> regVV v ** {c2 = prep} ; V0 : Type = V ;