(Pes) Add comparative

2019-05-14 15:19:16 +02:00
parent 31d4e5971a
commit 1372c0b354
5 changed files with 34 additions and 20 deletions
@@ -102,7 +102,7 @@ concrete NounPes of Noun = CatPes ** open ResPes, Prelude in {
 -- to here
    AdNum adn num = num ** {s = adn.s ++ num.s} ;

-    OrdSuperl a = {s = a.s ! Bare ++ taryn; n = Sg ; isNum=False ; isPre = True} ; -- check the form of adjective
+    OrdSuperl a = {s = a.s ! Comparative ! Bare ++ BIND ++ "ین" ; n = Sg ; isNum=False ; isPre = True} ;

    DefArt = makeQuant [] [] ;
    IndefArt = makeQuant IndefArticle [] ** {isDef = False} ;