From 12bc4ccdf58a472a03a02390ba61cbaecfb7b95a Mon Sep 17 00:00:00 2001
From: Meowyam <maryam@chilon.net>
Date: Wed, 24 Jan 2024 13:56:28 +0800
Subject: [PATCH] add correct negation for AP

---
 src/malay/ResMay.gf  | 5 ++++-
 src/malay/VerbMay.gf | 4 ++--
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/malay/ResMay.gf b/src/malay/ResMay.gf
index 3a4d6067..9fd53433 100644
--- a/src/malay/ResMay.gf
+++ b/src/malay/ResMay.gf
@@ -292,8 +292,11 @@ oper
   useV : Verb -> VerbPhrase = \v -> v ** {
     s = \\vf,pol => verbneg pol ++ v.s ! vf
     } ;
-
+  
   useComp : Str -> VerbPhrase = \s -> {
+    s = \\vf,pol => verbneg pol ++ s ;
+    } ;
+  useCompN : Str -> VerbPhrase = \s -> {
     s = \\vf,pol => nounneg pol ++ s ;
     } ;
 
diff --git a/src/malay/VerbMay.gf b/src/malay/VerbMay.gf
index ed54f19b..48863c0e 100644
--- a/src/malay/VerbMay.gf
+++ b/src/malay/VerbMay.gf
@@ -159,10 +159,10 @@ lin
   CompAP ap = useComp ap.s ;
 
   -- : CN  -> Comp ;
-  CompCN cn = useComp (cn.s ! NF Sg Bare) ;
+  CompCN cn = useCompN (cn.s ! NF Sg Bare) ;
 
   --  NP  -> Comp ;
-  CompNP np = useComp (np.s ! Bare) ;
+  CompNP np = useCompN (np.s ! Bare) ;
 
   -- : Adv  -> Comp ;
   --"Both bukan and tidak may negate prepositional phrases. The choice of either