(Ara) More relative clauses + fix questions + update MissingAra

2018-11-08 15:52:06 +01:00
parent e6d57f3b03
commit 7713518ad5
10 changed files with 43 additions and 54 deletions
@@ -370,13 +370,7 @@ resource ParadigmsAra = open

  v1 = \rootStr,vPerf,vImpf ->
    let { raw = v1' rootStr vPerf vImpf } in
-    { s = \\vf =>
-        case rootStr of {
-          _ + #hamza + _ => rectifyHmz(raw.s ! vf);
-          _ => raw.s ! vf
-        };
-      lock_V = <>
-    } ;
+    lin V { s = \\vf =>rectifyHmz (raw.s ! vf) } ;

  v1' : Str ->  Vowel -> Vowel -> Verb =
    \rootStr,vPerf,vImpf ->