From 0d213f6e27498627c299d452d9a5cbf89e5465fb Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 22 Jun 2006 13:29:14 +0000
Subject: [PATCH] arabic lock fields in Paradigms

---
 lib/resource-1.0/arabic/ParadigmsAra.gf | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/resource-1.0/arabic/ParadigmsAra.gf b/lib/resource-1.0/arabic/ParadigmsAra.gf
index cec7ffb78..18a18bf2f 100644
--- a/lib/resource-1.0/arabic/ParadigmsAra.gf
+++ b/lib/resource-1.0/arabic/ParadigmsAra.gf
@@ -59,7 +59,7 @@ resource ParadigmsAra = open
             _ => raw.s ! n ! d ! c
           };
         g = gen;
-        h = spec
+        h = spec ; lock_N = <>
       };
     
     regN' : Str -> Str -> Str -> Gender -> Species -> N =
@@ -104,7 +104,8 @@ resource ParadigmsAra = open
       \root,pat ->
       let { kabIr = mkWord pat root
       } in {
-        s = adj kabIr;
+        s = adj kabIr ;
+        lock_A = <>
       };
     
   --takes a root string only
@@ -203,7 +204,7 @@ resource ParadigmsAra = open
       let {
         nfs = mkRoot3 rootStr ;
       } in {
-        s = (v5sound nfs).s  ;
+        s = (v5sound nfs).s  ; lock_V = <>
       };
     
     --Verb Form VI : tafaacala