(Ara) Add AdjOrd + AdvS

2018-11-20 15:47:47 +01:00
parent b63da6573e
commit d6310e2a8b
3 changed files with 4 additions and 3 deletions
@@ -86,4 +86,6 @@ concrete SentenceAra of Sentence = CatAra ** open
    UseRCl t p cl = {s = \\agr,c => t.s ++ p.s ++ cl.s ! t.t ! p.p ! agr ! c} ;

    UseSlash t p cl = UseCl t p (complClSlash cl) ;
+
+    AdvS adv s = s ** {s = \\o => adv.s ++ s.s ! o} ;
 }