GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-10-02 07:03:39 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix compilation for Present

Browse Source
This commit is contained in:
Krasimir Angelov
2026-10-02 09:24:00 +02:00
parent ff44a1050c
commit 4e1c1e6fe1
1 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/dutch/ExtendDut.gf
+6 -8
View File
@@ -1,5 +1,3 @@
--# -path=alltenses:../common:../abstract
concrete ExtendDut of Extend = concrete ExtendDut of Extend =
CatDut ** ExtendFunctor CatDut ** ExtendFunctor
- [PastPartAP,PastPartAgentAP,PresPartAP,ProgrVPSlash,ICompAP,IAdvAdv, - [PastPartAP,PastPartAgentAP,PresPartAP,ProgrVPSlash,ICompAP,IAdvAdv,
@@ -41,12 +39,12 @@ lin
isPre = notB vp.isHeavy isPre = notB vp.isHeavy
} ; } ;
PastPartAgentAP vp np = { PastPartAgentAP vp np = { --# notpresent
s = \\agr,af => s = \\agr,af => --# notpresent
(infClause [] agr vp APred).s ! Past ! Anter ! Pos ! Sub ++ (infClause [] agr vp APred).s ! Past ! Anter ! Pos ! Sub ++ --# notpresent
"door" ++ np.s ! NPAcc ; "door" ++ np.s ! NPAcc ; --# notpresent
isPre = False isPre = False --# notpresent
} ; } ; --# notpresent
ProgrVPSlash vp = ProgrVPSlash vp =
let vpi = infVP True vp in let vpi = infVP True vp in