make some fixes to Malay prefixes

This commit is contained in:
Meowyam
2024-01-23 15:10:30 +08:00
parent 9c111ba0bc
commit 87f6e70456
3 changed files with 11 additions and 8 deletions
+5 -3
View File
@@ -27,8 +27,11 @@ oper
prefix : Prefix -> Str -> Str = \p -> case p of {
Meng => prefixMeng ;
Ber => prefixBer
Ber => prefixBer ;
NoPrefix => prefixNone
} ;
prefixNone : Str -> Str = \belajar -> belajar ;
prefixMeng : Str -> Str = \makan -> case makan of {
@@ -63,8 +66,6 @@ oper
} ;
prefixBer : Str -> Str = \jalan -> case jalan of {
-- Exception
"ajar" => "belajar" ;
-- Drop the r
(#c + "er" + _ -- be+kerja
@@ -149,6 +150,7 @@ param
Prefix =
Meng
| Ber
| NoPrefix
; -- TODO more?
--------------------------------------------------------------------------------