From 6e9f81a4a3f9e2f53c7b5ea38257eb9066780054 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 19 Apr 2018 15:46:36 +0200
Subject: [PATCH] (Dut) Make postmodifier AP take the predicative form; ComplA2
 makes AP into postmodifier

---
 src/dutch/AdjectiveDut.gf |  2 +-
 src/dutch/NounDut.gf      | 12 ++++++++----
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/src/dutch/AdjectiveDut.gf b/src/dutch/AdjectiveDut.gf
index 12b22ff2..8a05ecb7 100644
--- a/src/dutch/AdjectiveDut.gf
+++ b/src/dutch/AdjectiveDut.gf
@@ -31,7 +31,7 @@ concrete AdjectiveDut of Adjective = CatDut ** open ResDut, Prelude in
 
     ComplA2 a np = {
       s = \\agr,af => a.s ! Posit ! af ++ appPrep a.c2 np ; 
-      isPre = True
+      isPre = False
       } ;
 
     ReflA2 a = {
diff --git a/src/dutch/NounDut.gf b/src/dutch/NounDut.gf
index 59e30203..adcfae22 100644
--- a/src/dutch/NounDut.gf
+++ b/src/dutch/NounDut.gf
@@ -161,10 +161,14 @@ concrete NounDut of Noun = CatDut ** open ResDut, Prelude in {
       let 
         g = cn.g 
       in {
-        s = \\a,n => 
-               preOrPost ap.isPre
-                 (ap.s ! agrP3 Sg ! agrAdj g a n)
-                 (cn.s ! a ! n) ;
+        s = \\a,n =>
+               let gan : Gender*Adjf*NForm = case ap.isPre of {
+                    True  => <g,a,n> ;
+                    False => <Neutr,Strong,NF Sg Nom> } ;
+                   af = agrAdj gan.p1 gan.p2 gan.p3 ;
+               in preOrPost ap.isPre
+                    (ap.s ! agrP3 Sg ! af)
+                    (cn.s ! a ! n) ;
         g = g
         } ;