fix the missing lock fields in several languages

This commit is contained in:
krasimir
2009-09-13 20:31:20 +00:00
parent f165acc41b
commit 4f87558b55
8 changed files with 19 additions and 19 deletions

View File

@@ -120,8 +120,8 @@ resource ResEng = ParamX ** open Prelude in {
}
} ;
mkAdjective : (_,_,_,_ : Str) -> {s : AForm => Str} =
\good,better,best,well -> {
mkAdjective : (_,_,_,_ : Str) -> {s : AForm => Str; lock_A : {}} =
\good,better,best,well -> lin A {
s = table {
AAdj Posit c => (regGenitiveS good) ! c ;
AAdj Compar c => (regGenitiveS better) ! c ;