(Ara) Remove some LTR (U+200E) chars that had been copypasted in error

This commit is contained in:
Inari Listenmaa
2018-10-12 15:40:48 +02:00
parent a36c3278a5
commit 0bce38800c
4 changed files with 5 additions and 5 deletions

View File

@@ -73,7 +73,7 @@ flags
drink_V2 = dirV2 (regV "شَرِب") ; drink_V2 = dirV2 (regV "شَرِب") ;
-- drink_V2 = dirV2 (v1 "شرب" i a) ; -- drink_V2 = dirV2 (v1 "شرب" i a) ;
easy_A2V = mkA2 (sndA "سهل" "فَعل") "لِ" ; easy_A2V = mkA2 (sndA "سهل" "فَعل") "لِ" ;
eat_V2 = dirV2 (mkV "ءكل" FormI) ; eat_V2 = dirV2 (mkV "ءكل" FormI) ;
empty_A = sndA "فرغ" "فاعِل" ; empty_A = sndA "فرغ" "فاعِل" ;
enemy_N = brkN "عدو" "فَعُلّ" "أَفعاء" Masc Hum ; enemy_N = brkN "عدو" "فَعُلّ" "أَفعاء" Masc Hum ;
factory_N = brkN "صنع" "مَفعَل" "مَفاعِل" Masc NoHum ; factory_N = brkN "صنع" "مَفعَل" "مَفاعِل" Masc NoHum ;
@@ -111,7 +111,7 @@ flags
iron_N = brkN "حدّ" "فَعِيل" "فَعائِل" Masc NoHum ; iron_N = brkN "حدّ" "فَعِيل" "فَعائِل" Masc NoHum ;
king_N = brkN "ملك" "فَعِل" "فُعُول" Masc Hum ; king_N = brkN "ملك" "فَعِل" "فُعُول" Masc Hum ;
know_V2 = dirV2 (regV "عَرِف") ; know_V2 = dirV2 (regV "عَرِف") ;
know_VS = mkVS (regV "عَرِف") ; -- or with ع ل م? know_VS = mkVS (regV "عَرِف") ; -- or with ع ل م?
lake_N = sdfN "بحر" "فُعَيلة" Fem NoHum ; lake_N = sdfN "بحر" "فُعَيلة" Fem NoHum ;
lamp_N = brkN "صبح" "مِفعال" "مَفاعِيل" Masc NoHum ; --qanDIl, fAnUs lamp_N = brkN "صبح" "مِفعال" "مَفاعِيل" Masc NoHum ; --qanDIl, fAnUs
learn_V2 = dirV2 (v5 "علم") ; learn_V2 = dirV2 (v5 "علم") ;

View File

@@ -12,7 +12,7 @@ flags coding=utf8 ;
sun : pattern Str = #("ت"|"ث"|"د"|"ذ"|"ر"|"ز"|"س"|"ش"|"ص"|"ض"|"ط"|"ظ"|"ل"|"ن") ; sun : pattern Str = #("ت"|"ث"|"د"|"ذ"|"ر"|"ز"|"س"|"ش"|"ص"|"ض"|"ط"|"ظ"|"ل"|"ن") ;
-- Hamza -- Hamza
hamza : pattern Str = #("ء"|"؟") ; hamza : pattern Str = #("ء"|"؟") ;
rectifyHmz: Str -> Str = \word -> rectifyHmz: Str -> Str = \word ->
case word of { case word of {

View File

@@ -952,7 +952,7 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
Const => Const =>
table { table {
Nom => "َا"; Nom => "َا";
_ => "َيْ" _ => "َيْ"
}; };
_ => _ =>
table { table {

View File

@@ -20,7 +20,7 @@ concrete VerbAra of Verb = CatAra ** open Prelude, ResAra in {
ComplVV vv vp = let vvVP = predV vv in --- IL ComplVV vv vp = let vvVP = predV vv in --- IL
vp ** { vp ** {
s = \\pgn,vpf => vvVP.s ! pgn ! vpf s = \\pgn,vpf => vvVP.s ! pgn ! vpf
++ vv.c2 -- أَنْ ++ vv.c2 -- أَنْ
++ vp.s ! pgn ! VPImpf Cnj ++ vp.s ! pgn ! VPImpf Cnj
} ; } ;