made AllDut import ExtendDut

src/dutch/AllDut.gf

@@ -2,8 +2,8 @@
 
 concrete AllDut of AllDutAbs = 
   LangDut,
-  IrregDut,
+  IrregDut
-  ExtraDut
+  , ExtendDut 
   ** 
 {
 --{} ;

src/dutch/AllDutAbs.gf

@@ -3,7 +3,7 @@
 abstract AllDutAbs = 
   Lang,
   IrregDutAbs,
-  ExtraDutAbs
+  Extend -- ExtraDutAbs
   ** 
 {
 --{} ;

src/dutch/CatDut.gf

@@ -34,7 +34,7 @@ concrete CatDut of Cat =
 -- Verb
 
     VP = ResDut.VP ;
-    VPSlash = ResDut.VP ** {c2 : Preposition * Bool} ;
+    VPSlash = ResDut.VP ** {c2 : Preposition * Bool} ; -- False = empty prep
     Comp = {s : Agr => Str} ; 
 
 -- Adjective

src/dutch/ExtendDut.gf

@@ -11,14 +11,15 @@ concrete ExtendDut of Extend =
     Coordination,
     Prelude,
     ParadigmsDut in {
-  lin
 
-  PastPartAP vp = {
+lin --# notpresent
-    s = \\agr,af => let aForm = case vp.isHeavy of {
+
-                          True  => APred ;
+  PastPartAP vp = { --# notpresent
-                          False => af } ;
+    s = \\agr,af => let aForm = case vp.isHeavy of { --# notpresent
-                     in (infClause [] agr vp aForm).s ! Past ! Anter ! Pos ! Sub ;
+                          True  => APred ; --# notpresent
-    isPre = notB vp.isHeavy ;
+                          False => af } ; --# notpresent
-   } ;
+                     in (infClause [] agr vp aForm).s ! Past ! Anter ! Pos ! Sub ; --# notpresent
+    isPre = notB vp.isHeavy ; --# notpresent
+   } ; --# notpresent
     
  }