add extra functions to get VPS to work

2026-06-29 18:48:37 -06:00 · 2022-05-11 11:30:34 +08:00
parent 2418e8cfcf
commit 967a8fb8a1
5 changed files with 21 additions and 5 deletions
@@ -34,6 +34,9 @@ lin
    }
  } ;

+  -- : VP -> SC ;
+  EmbedVP vp = {s = vp.s ! Root ! Pos} ;
+
 {-
  -- : NP -> VS -> SSlash -> ClSlash ; -- (whom) she says that he loves
  SlashVS np vs ss = {} ;