mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
added lin FClause
This commit is contained in:
@@ -330,8 +330,8 @@ concrete ExtraGer of ExtraGerAbs = CatGer **
|
||||
lin
|
||||
VPass v =
|
||||
let vp = predV werdenPass
|
||||
in vp ** {subj = esSubj ;
|
||||
inf = vp.inf ** {s = v.s ! VPastPart APred } } ; -- construct the formal clause
|
||||
in lin FClause (vp ** {subj = esSubj ;
|
||||
inf = vp.inf ** {s = v.s ! VPastPart APred } }) ; -- construct the formal clause
|
||||
|
||||
AdvFor adv fcl = fcl ** {a2 = adv.s} ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user