From f53078dbadeb608073a07f1a648dd577e61226ad Mon Sep 17 00:00:00 2001
From: Meowyam <maryam@chilon.net>
Date: Wed, 22 Feb 2023 13:35:09 +0800
Subject: [PATCH] remove shall_VV

---
 src/malay/ConjunctionMay.gf | 9 ++++++---
 src/malay/StructuralMay.gf  | 2 --
 src/malay/VerbMay.gf        | 4 ++--
 3 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/src/malay/ConjunctionMay.gf b/src/malay/ConjunctionMay.gf
index f00f67321..1bc122ff4 100644
--- a/src/malay/ConjunctionMay.gf
+++ b/src/malay/ConjunctionMay.gf
@@ -34,9 +34,12 @@ lincat
   [S] = {s1,s2 : Str} ;
 
 lin
-  BaseAdv, BaseAdV, BaseIAdv, BaseS = twoSS ;
-  ConsAdv, ConsAdV, ConsIAdv, ConsS = consrSS comma ;
-  ConjAdv, ConjAdV, ConjIAdv, ConjS = conjunctDistrSS ;
+  BaseAdv, BaseAdV, BaseIAdv = twoSS ;
+  ConsAdv, ConsAdV, ConsIAdv = consrSS comma ;
+  ConjAdv, ConjAdV, ConjIAdv = conjunctDistrSS ;
+  BaseS = twoSS ;
+  ConsS = consrSS comma ;
+  ConjS = conjunctDistrSS ;
 
 
 {-
diff --git a/src/malay/StructuralMay.gf b/src/malay/StructuralMay.gf
index 3bbc3a12e..3a5430dfe 100644
--- a/src/malay/StructuralMay.gf
+++ b/src/malay/StructuralMay.gf
@@ -178,8 +178,6 @@ lin have_V2 = let have' : V2 = mkV2 "ada" in have' ** {
 -- lin can8know_VV = can_VV ; -- can (capacity)
 lin can_VV = mkVV "boleh" ;   -- can (possibility)
 lin must_VV = mkVV "perlu" ;
-lin may_VV = mkVV "mungkin" ;
-lin shall_VV = mkVV "hendaklah" ;
 lin want_VV = mkVV "mahu" ;
 
 ------
diff --git a/src/malay/VerbMay.gf b/src/malay/VerbMay.gf
index cb19a1dd3..cf5497c00 100644
--- a/src/malay/VerbMay.gf
+++ b/src/malay/VerbMay.gf
@@ -62,7 +62,7 @@ lin
     } ;
 
   -- insertObjc : (Agr => Str) -> SlashVP -> SlashVP = \obj,vp ->
-  insertObj obj vp ** {c2 = vp.c2 ; gapInMiddle = vp.gapInMiddle ; missingAdv = vp.missingAdv } ;
+  -- insertObj obj vp ** {c2 = vp.c2 ; gapInMiddle = vp.gapInMiddle ; missingAdv = vp.missingAdv } ;
 
 
   SlashV2A v2 adj = useV {
@@ -73,7 +73,7 @@ lin
   } ;
 
   -- : V2V -> VP -> VPSlash ;  -- beg (her) to go
-  SlashV2V v2v vp = ;
+  -- SlashV2V v2v vp = ;
 
 
  {-