mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-07-01 11:38:34 -06:00
(Ara) add parameter to uttVP oper
This commit is contained in:
@@ -1749,8 +1749,8 @@ patGeminateImp : (_,_ :Str) -> Gender => Number => Str = \facc,facic ->
|
||||
s : PerGenNum => VPForm => Str ;
|
||||
} ;
|
||||
|
||||
uttVP : VP -> (Gender=>Str) = \vp ->
|
||||
\\g => vp.s ! Per3 g Sg ! VPPerf
|
||||
uttVP : VPForm -> VP -> (Gender=>Str) = \vpf,vp ->
|
||||
\\g => vp.s ! Per3 g Sg ! vpf
|
||||
++ vp.obj.s ++ vp.pred.s ! {n = Sg ; g = g} ! Nom
|
||||
++ vp.s2 ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user