Skip to content

Commit a3701d1

Browse files
committed
bug fix in VerbGer: added fields of CN to CompCN
1 parent b6f37ab commit a3701d1

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

src/german/VerbGer.gf

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -144,10 +144,10 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer, Coordination in {
144144
CompAdv a = {s = \\_ => a.s ; ext = []} ;
145145

146146
CompCN cn = {s = \\a => case numberAgr a of {
147-
Sg => "ein" + pronEnding ! GSg cn.g ! Nom ++ cn.s ! Strong ! Sg ! Nom ;
148-
Pl => cn.s ! Strong ! Pl ! Nom
147+
Sg => "ein" + pronEnding ! GSg cn.g ! Nom ++ cn.s ! Strong ! Sg ! Nom ++ cn.rc ! Sg ; ---
148+
Pl => cn.s ! Strong ! Pl ! Nom ++ cn.rc ! Pl ---
149149
} ;
150-
ext = []
150+
ext = cn.adv ++ cn.ext
151151
} ;
152152

153153
AdvVP vp adv = insertAdv adv.s vp ;

0 commit comments

Comments
 (0)