diff options
Diffstat (limited to 'next-lib/src/english/MakeStructuralEng.gf')
| -rw-r--r-- | next-lib/src/english/MakeStructuralEng.gf | 8 |
1 files changed, 3 insertions, 5 deletions
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} ; } |