(Romance) Remove traces of Degree in Extend

2026-06-30 02:58:35 -06:00 · 2021-09-15 15:08:39 +08:00
parent 88d0217d10
commit ef3270ae29
3 changed files with 3 additions and 3 deletions
@@ -78,7 +78,7 @@ concrete ExtendSpa of Extend = CatSpa ** ExtendRomanceFunctor -

    CompoundAP noun adj = {
      s = \\af => case (aform2aagr af) of {
-        {n = n} => adj.s ! Posit ! (genNum2Aform noun.g n) ++ "de" ++ noun.s ! n
+        {n = n} => adj.s ! genNum2Aform noun.g n ++ "de" ++ noun.s ! n
        } ;
      isPre = adj.isPre ;
      copTyp = adj.copTyp