From 021e6e6509aa359c72746febeddb06f0a77dacad Mon Sep 17 00:00:00 2001
From: Meowyam <maryam@chilon.net>
Date: Thu, 20 Jan 2022 12:24:51 +0800
Subject: [PATCH] fix minor fixes for Malay RGL

---
 src/abstract/Lexicon.gf   | 1 -
 src/english/NounEng.gf    | 2 +-
 src/malay/AdjectiveMay.gf | 2 +-
 src/malay/AllMay.gf       | 4 +++-
 src/malay/LexiconMay.gf   | 1 -
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/abstract/Lexicon.gf b/src/abstract/Lexicon.gf
index 9dcf6f67..07e40113 100644
--- a/src/abstract/Lexicon.gf
+++ b/src/abstract/Lexicon.gf
@@ -265,7 +265,6 @@ fun
   short_A : A ;
   silver_N : N ;
   sing_V : V ;
-  sing_V2 : V2 ;
   sister_N : N ;
   sit_V : V ;
   skin_N : N ;
diff --git a/src/english/NounEng.gf b/src/english/NounEng.gf
index 848b2196..af3cd446 100644
--- a/src/english/NounEng.gf
+++ b/src/english/NounEng.gf
@@ -56,7 +56,7 @@ concrete NounEng of Noun = CatEng ** open MorphoEng, ResEng, Prelude in {
 
     DetNP det = {
       -- s = case det.hasNum of {True => \\_ => det.s ; _ => \\c => det.sp ! c} ;
-      s = \\c => det.sp ! Neutr ! False ! c ++ "whatevr" ;
+      s = \\c => det.sp ! Neutr ! False ! c ;
       a = agrP3 det.n
       } ;
 
diff --git a/src/malay/AdjectiveMay.gf b/src/malay/AdjectiveMay.gf
index be7c198f..af6b454c 100644
--- a/src/malay/AdjectiveMay.gf
+++ b/src/malay/AdjectiveMay.gf
@@ -6,7 +6,7 @@ concrete AdjectiveMay of Adjective = CatMay ** open ResMay, Prelude in {
 
   -- : A  -> AP ;
   PositA a = a ** {
-    compar = a.s ;
+    compar = [] ;
     } ;
 
   -- : A  -> NP -> AP ;
diff --git a/src/malay/AllMay.gf b/src/malay/AllMay.gf
index b7b17611..c965d873 100644
--- a/src/malay/AllMay.gf
+++ b/src/malay/AllMay.gf
@@ -3,4 +3,6 @@
 concrete AllMay of AllMayAbs =
   LangMay,
   ExtendMay
-  ** {} ;
+  ** {
+    lin sing_V2 = mkV2 "nyanyi" ;
+  } ;
diff --git a/src/malay/LexiconMay.gf b/src/malay/LexiconMay.gf
index 74d14c68..a74a89b8 100644
--- a/src/malay/LexiconMay.gf
+++ b/src/malay/LexiconMay.gf
@@ -324,7 +324,6 @@ lin sell_V3 = mkV3 (mkV "jual" Meng) emptyPrep emptyPrep ; -- TODO
 -- lin short_A = mkA "" ;
 -- lin silver_N = mkN "" ;
 lin sing_V = mkV "nyanyi" ;
-lin sing_V2 = mkV2 "nyanyi" ;
 -- lin sister_N = mkN "" ;
 -- lin sit_V = mkV "" ;
 -- lin skin_N = mkN "" ;