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