GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-17 15:12:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

structural words needed for Attempto ; negative items are overgenerating

Browse Source
This commit is contained in:
aarne
2008-11-03 16:52:54 +00:00
parent 7f0b861ca9
commit e67587ae5b
11 changed files with 101 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
next-lib/src/german/NounGer.gf
View File

@@ -23,7 +23,9 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
} ;
PredetNP pred np = {
s = \\c => pred.s ! np.a.n ! Masc ! c ++ np.s ! c ; ---- g
s = \\c0 =>
let c = case pred.c of {NoCase => c0 ; PredCase k => k} in
pred.s ! np.a.n ! Masc ! c0 ++ np.s ! c ; ---- g
a = np.a
} ;