(Ara) diacritics

2026-07-02 03:58:34 -06:00 · 2018-11-02 18:01:14 +01:00
parent 62ea7c82a9
commit 2d112e3a55
5 changed files with 27 additions and 28 deletions
@@ -904,8 +904,7 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
      case st of {
        Def =>
          case stem of {
-            s@#sun + v@#vow + x => al + s + v + "ّ" + x ; -- vowel before shadda
-            s@#sun + x          => al + s + "ّ" + x;
+            s@#sun + x          => fixShd (al + s) ("ّ" + x) ;
            x                   => al + x } ;
        _   => stem
      };