diff options
Diffstat (limited to 'next-lib/src')
| -rw-r--r-- | next-lib/src/english/MakeStructuralEng.gf | 4 | ||||
| -rw-r--r-- | next-lib/src/english/StructuralEng.gf | 3 | ||||
| -rw-r--r-- | next-lib/src/french/StructuralFre.gf | 4 | ||||
| -rw-r--r-- | next-lib/src/swedish/StructuralSwe.gf | 3 |
4 files changed, 9 insertions, 5 deletions
diff --git a/next-lib/src/english/MakeStructuralEng.gf b/next-lib/src/english/MakeStructuralEng.gf index eeaee1dcf..e2662ba88 100644 --- a/next-lib/src/english/MakeStructuralEng.gf +++ b/next-lib/src/english/MakeStructuralEng.gf @@ -3,8 +3,8 @@ 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 = <>} ; +-- mkConj : Str -> Str -> Number -> Conj = \x,y,n -> +-- {s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ; mkSubj : Str -> Subj = \x -> {s = x ; lock_Subj = <>} ; mkNP : Str -> Number -> NP = \s,n -> diff --git a/next-lib/src/english/StructuralEng.gf b/next-lib/src/english/StructuralEng.gf index 1f0715fc5..ba3c58e23 100644 --- a/next-lib/src/english/StructuralEng.gf +++ b/next-lib/src/english/StructuralEng.gf @@ -1,5 +1,6 @@ concrete StructuralEng of Structural = CatEng ** - open MorphoEng, ResEng, ParadigmsEng, (C = ConstructX), Prelude in { + open MorphoEng, ResEng, ParadigmsEng, MakeStructuralEng, + (C = ConstructX), Prelude in { flags optimize=all ; diff --git a/next-lib/src/french/StructuralFre.gf b/next-lib/src/french/StructuralFre.gf index 2bdaeb577..0293db257 100644 --- a/next-lib/src/french/StructuralFre.gf +++ b/next-lib/src/french/StructuralFre.gf @@ -1,7 +1,9 @@ --# -path=.:../abstract:../romance:../common:prelude concrete StructuralFre of Structural = CatFre ** - open PhonoFre, MorphoFre, ParadigmsFre, IrregFre, (X = ConstructX), Prelude in { + open PhonoFre, MorphoFre, ParadigmsFre, IrregFre, (X = ConstructX), + MakeStructuralFre, + Prelude in { flags optimize=all ; coding=utf8 ; diff --git a/next-lib/src/swedish/StructuralSwe.gf b/next-lib/src/swedish/StructuralSwe.gf index 1ec38c245..06883b912 100644 --- a/next-lib/src/swedish/StructuralSwe.gf +++ b/next-lib/src/swedish/StructuralSwe.gf @@ -1,5 +1,6 @@ concrete StructuralSwe of Structural = CatSwe ** - open MorphoSwe, ParadigmsSwe, (X = ConstructX), Prelude in { + open MorphoSwe, ParadigmsSwe, MakeStructuralSwe, + (X = ConstructX), Prelude in { flags optimize=all ; |