diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-12-18 15:25:29 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-12-18 15:25:29 +0000 |
| commit | f9e9c582f3cbfde308bad71d1303a38082189e02 (patch) | |
| tree | c109c9d134a29fe8397dded0b9d99a032c9f9ebe /next-lib/src | |
| parent | 9e341cc7f9020eda842c8ad0f1f57bf6326eb89d (diff) | |
marked a workaround
Diffstat (limited to 'next-lib/src')
| -rw-r--r-- | next-lib/src/arabic/SentenceAra.gf | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/next-lib/src/arabic/SentenceAra.gf b/next-lib/src/arabic/SentenceAra.gf index eb8147ddb..72b529a29 100644 --- a/next-lib/src/arabic/SentenceAra.gf +++ b/next-lib/src/arabic/SentenceAra.gf @@ -54,11 +54,12 @@ concrete SentenceAra of Sentence = CatAra ** open <True, ResAra.Pres, Pos> => vp.pred.s ! gn ! Nom; --xabar marfooc _ => vp.pred.s ! gn ! Acc --xabar kaana wa laysa manSoob }; + } in case o of { Verbal => case <False, np.a.isPron> of { -----AR case <vp.obj.a.isPron, np.a.isPron> of { +---- AR workaround 18/12/2008 case <vp.obj.a.isPron, np.a.isPron> of { -- ya2kuluhu <False,True> => (vStr t p) ++ vp.obj.s ++ vp.s2 ++ (pred t p); -- ya2kuluhu al-waladu, yakuluhu al-2awlaadu |