diff --git a/src/arabic/AdjectiveAra.gf b/src/arabic/AdjectiveAra.gf index aa8a0b306..98734aba3 100644 --- a/src/arabic/AdjectiveAra.gf +++ b/src/arabic/AdjectiveAra.gf @@ -20,10 +20,9 @@ concrete AdjectiveAra of Adjective = CatAra ** open ResAra, Prelude in { -- -- $SuperlA$ belongs to determiner syntax in $Noun$. -- --- ComplA2 a np = { --- s = \\_ => a.s ! AAdj Posit ++ a.c2 ++ np.s ! Acc ; --- isPre = False --- } ; + ComplA2 a np = { + s = \\sp,g,n,st,c => a.s ! APosit g n st c ++ a.c2 ++ np.s ! Gen ; + } ; -- -- ReflA2 a = { -- s = \\ag => a.s ! AAdj Posit ++ a.c2 ++ reflPron ! ag ;