GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-25 11:06:28 -06:00
Code Issues Packages Projects Releases Wiki Activity

made AllDut import ExtendDut

Browse Source
This commit is contained in:
Aarne Ranta
2018-04-25 10:46:40 +02:00
parent 2de326e8a3
commit db1ecda1f6
4 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/dutch/ExtendDut.gf
+9 -8
View File
@@ -11,14 +11,15 @@ concrete ExtendDut of Extend =
Coordination,
Prelude,
ParadigmsDut in {
lin
PastPartAP vp = {
s = \\agr,af => let aForm = case vp.isHeavy of {
True => APred ;
False => af } ;
in (infClause [] agr vp aForm).s ! Past ! Anter ! Pos ! Sub ;
isPre = notB vp.isHeavy ;
} ;
lin --# notpresent
PastPartAP vp = { --# notpresent
s = \\agr,af => let aForm = case vp.isHeavy of { --# notpresent
True => APred ; --# notpresent
False => af } ; --# notpresent
in (infClause [] agr vp aForm).s ! Past ! Anter ! Pos ! Sub ; --# notpresent
isPre = notB vp.isHeavy ; --# notpresent
} ; --# notpresent
}