Hrv: marked missing functions needed for AW experiment

2022-09-29 10:42:36 +02:00
parent 235fd0570f
commit 5a6701cda8
10 changed files with 24 additions and 7 deletions
@@ -5,7 +5,9 @@ concrete AdjectiveHrv of Adjective = CatHrv ** open ResHrv, Prelude in {
    PositA a = adjFormsAdjective a ** {isPost = False} ;
    
    AdAP ada ap = ap ** {s = \\g,n,c => ada.s ++ ap.s ! g ! n ! c} ;
-    
+
+--AW2 AdjOrd
+
    ComplA2 a np =
      let ap = adjFormsAdjective a
      in