(Dut) Extend vs. Extra

src/dutch/ExtendDut.gf

@@ -2,7 +2,7 @@
 
 concrete ExtendDut of Extend =
   CatDut ** ExtendFunctor
-   - [PastPartAP]
+   - [PastPartAP,ICompAP,IAdvAdv]
   with
     (Grammar = GrammarDut) **
   open
@@ -12,7 +12,7 @@ concrete ExtendDut of Extend =
     Prelude,
     ParadigmsDut in {
 
-lin --# notpresent
+lin
 
   PastPartAP vp = { --# notpresent
     s = \\agr,af => let aForm = case vp.isHeavy of { --# notpresent
@@ -22,4 +22,7 @@ lin --# notpresent
     isPre = notB vp.isHeavy ; --# notpresent
    } ; --# notpresent
     
- }
+  ICompAP ap = {s = \\agr => "hoe" ++ ap.s ! agr ! APred} ; 
+
+  IAdvAdv adv = {s = "hoe" ++ adv.s} ;
+}

src/dutch/ExtraDut.gf

@@ -1,5 +1,5 @@
 concrete ExtraDut of ExtraDutAbs = CatDut ** 
-  open ResDut, Coordination, Prelude, IrregDut, (P = ParadigmsDut), NounDut in 
+  open ResDut, Coordination, Prelude, IrregDut, (P = ParadigmsDut), (E=ExtendDut), NounDut in 
 {
 
   flags coding=utf8 ;
@@ -19,9 +19,9 @@ concrete ExtraDut of ExtraDutAbs = CatDut **
            predVGen v.isAux BeforeObjs v) ; ----
 
 lin
-    ICompAP ap = {s = \\agr => "hoe" ++ ap.s ! agr ! APred} ; 
+    ICompAP = E.ICompAP ;
 
-    IAdvAdv adv = {s = "hoe" ++ adv.s} ;
+    IAdvAdv = E.IAdvAdv ;
 
   lincat
     VPS   = {s : Order => Agr => Str} ;