(Ara) Fixing possessive suffixes

2018-10-22 17:09:51 +02:00
parent eb074e6bcd
commit 6b0094b22a
3 changed files with 10 additions and 7 deletions
@@ -435,8 +435,8 @@ resource ParadigmsAra = open
  mkPron : (_,_,_ : Str) -> PerGenNum -> NP = \ana,nI,I,pgn ->
    { s =
        table {
-          Acc => nI;
-          Gen => I;
+          Acc => BIND ++ nI; -- object suffix
+          Gen => BIND ++ I;  -- possessive suffix
          _   => ana
        };
      a = {pgn = pgn; isPron = True };