From 24207d40e9cb56173de22d9a424975f0da0bc416 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 3 Oct 2008 20:42:09 +0000
Subject: extended AP with Ord and compar in 1.5

---
 next-lib/src/german/AdjectiveGer.gf | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'next-lib/src/german')

diff --git a/next-lib/src/german/AdjectiveGer.gf b/next-lib/src/german/AdjectiveGer.gf
index 6f174bb1e..10b4b3cfd 100644
--- a/next-lib/src/german/AdjectiveGer.gf
+++ b/next-lib/src/german/AdjectiveGer.gf
@@ -12,6 +12,14 @@ concrete AdjectiveGer of Adjective = CatGer ** open ResGer, Prelude in {
       s = \\af => a.s ! Compar ! af ++ conjThan ++ np.s ! Nom ;
       isPre = True
       } ;
+    UseComparA a = {
+      s = \\af => a.s ! Compar ! af ;
+      isPre = True
+      } ;
+    AdjOrd  a = {
+      s = a.s ;
+      isPre = True
+      } ;
 
 -- $SuperlA$ belongs to determiner syntax in $Noun$.
 
@@ -35,6 +43,9 @@ concrete AdjectiveGer of Adjective = CatGer ** open ResGer, Prelude in {
       isPre = ap.isPre
       } ;
 
-    UseA2 a = a ;
+    UseA2 a = {
+      s = a.s ! Posit ;
+      isPre = True
+      } ;
 
 }
-- 
cgit v1.2.3