fix the missing lock fields in several languages

2026-05-13 05:02:50 -06:00 · 2009-09-13 20:31:20 +00:00
parent f165acc41b
commit 4f87558b55
8 changed files with 19 additions and 19 deletions
--- a/lib/src/finnish/MorphoFin.gf
+++ b/lib/src/finnish/MorphoFin.gf
@@ -359,7 +359,7 @@ resource MorphoFin = ResFin ** open Prelude in {
      9 => ukkoihin
      } ;

-    Noun = {s : NForm => Str} ;
+    Noun = {s : NForm => Str; lock_N : {}} ;

    nForms2N : NForms -> Noun = \f -> 
      let
--- a/lib/src/finnish/ResFin.gf
+++ b/lib/src/finnish/ResFin.gf
@@ -43,7 +43,7 @@ param
  AForm = AN NForm | AAdv ;

 oper
-  Adjective : Type = {s : Degree => AForm => Str} ;
+  Adjective : Type = {s : Degree => AForm => Str; lock_A : {}} ;

 --2 Noun phrases
 --