corrections in Dutch

src/dutch/ExtraDut.gf

@@ -35,4 +35,10 @@ concrete ExtraDut of ExtraDutAbs = CatDut **
 --
 --} 
 
+
+lin
+    ICompAP ap = {s = \\_ => "hoe" ++ ap.s ! APred} ; 
+
+    IAdvAdv adv = {s = "hoe" ++ adv.s} ;
+
 }

src/dutch/ExtraDutAbs.gf

@@ -1,6 +1,6 @@
 abstract ExtraDutAbs = Extra [
   VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI,
-  VV,VP,Conj] ** 
+  VV,VP,Conj,IComp,ICompAP,IAdvAdv,Adv,AP,IAdv] ** 
 {
 --{
 --

src/dutch/ResDut.gf

@@ -53,7 +53,7 @@ resource ResDut = ParamX ** open Prelude in {
     shortVoc : Str -> Str -> Str = \v,s -> init v + endCons s ;
 
     endCons : Str -> Str = \s -> case s of {
-      _ + ("ts" |"rs") => s ;
+      _ + ("ts" |"rs" | "ls") => s ;
       b + "s" => b + "z" ;
       b + "f" => b + "v" ;
       _ => s

src/dutch/StructuralDut.gf

@@ -105,7 +105,7 @@ concrete StructuralDut of Structural = CatDut, Prelude **
   with_Prep = mkPrep "met" ;
   youSg_Pron = mkPronoun "je" "je" "je" "jij" "jou" "je" "jouwe" Utr Sg P2 ;
   youPl_Pron = mkPronoun "jullie" "jullie" "je" "jullie" "jullie" "jullie" "uwe" Utr Pl P2 ;
-  youPol_Pron = mkPronoun "u" "u" "uw" "u" "u" "uw" "uwe" Utr Sg P3 ;
+  youPol_Pron = mkPronoun "u" "u" "uw" "u" "u" "uw" "uwe" Utr Sg P2 ;
   yes_Utt = ss "ja" ;
 
   not_Predet = mkPredet "niet" "niet" ;