(Som) Add VPSlashPrep + fix bug in insertAdv

2019-09-30 10:50:26 +02:00
parent 22503e0a7a
commit 4dba178d33
3 changed files with 14 additions and 9 deletions
@@ -261,6 +261,15 @@ oper
          Single _ => oneWay ! p1 ! p2 ;
          z        => z } ;

+  combinePassive : Preposition -> PrepCombination = \p ->
+    case p of {
+      U => Loo ;
+      Ku => Lagu ;
+      Ka => Laga ;
+      La => Lala ;
+      _ => Passive
+    } ;
+
  isPassive : {c2 : PrepCombination} -> Bool = \vp ->
    case vp.c2 of {
      Passive | Lagu | Laga | Loo | Lala => True ;