add VPS and VPI to ExtendMay

2022-05-11 14:56:01 +08:00
parent a1c85431be
commit 3e79ab25e1
3 changed files with 62 additions and 4 deletions
@@ -276,6 +276,8 @@ oper
    s = \\vf,pol => nounneg pol ++ s ;
    } ;

+  linVP : VerbPhrase -> Str = \vp -> vp.s ! Active ! Pos;
+
 -- https://www.reddit.com/r/indonesian/comments/gsizsv/when_to_use_tidak_bukan_jangan_belum/

  verbneg : Polarity -> Str = \pol -> case pol of {