add extra functions to get VPS to work

2022-05-11 11:30:34 +08:00
parent 2418e8cfcf
commit 967a8fb8a1
5 changed files with 21 additions and 5 deletions
@@ -174,6 +174,11 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
    heavyMod = cn.heavyMod ++ rs.s ! P3
    } ;

+  -- : CN -> Adv -> CN ;
+  AdvCN cn adv = cn ** {
+    heavyMod = cn.heavyMod ++ adv.s
+    } ;
+
 {-
  -- : CN -> Adv -> CN ;
  AdvCN cn adv = cn ** {  } ;