From beb8cad7d868b5ef1eb74d8f0d50cb689db613ab Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 20 Jun 2009 13:50:34 +0000 Subject: the construct lin C t now replaces lock fields (in source code; still tempor used internally); lock fields removed from english resource as an example --- next-lib/src/english/MakeStructuralEng.gf | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'next-lib/src/english/MakeStructuralEng.gf') diff --git a/next-lib/src/english/MakeStructuralEng.gf b/next-lib/src/english/MakeStructuralEng.gf index e2662ba88..9f014bf63 100644 --- a/next-lib/src/english/MakeStructuralEng.gf +++ b/next-lib/src/english/MakeStructuralEng.gf @@ -3,13 +3,11 @@ resource MakeStructuralEng = open CatEng, ParadigmsEng, ResEng, MorphoEng, Prelude in { oper --- mkConj : Str -> Str -> Number -> Conj = \x,y,n -> --- {s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ; mkSubj : Str -> Subj = \x -> - {s = x ; lock_Subj = <>} ; + lin Subj {s = x} ; mkNP : Str -> Number -> NP = \s,n -> - regNP s n ** {lock_NP = <>} ; + lin NP (regNP s n) ; mkIDet : Str -> Number -> IDet = \s,n -> - {s = s ; n = n ; lock_IDet = <>} ; + lin IDet {s = s ; n = n} ; } -- cgit v1.2.3