From 9dd84ff5edb5966ed2aad234de2e85091abb32b9 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Mon, 15 Jun 2009 09:59:21 +0000
Subject: [PATCH] remove some obsolete code from Interlingua

---
 next-lib/src/interlingua/CatIna.gf  |  1 -
 next-lib/src/interlingua/NounIna.gf | 22 ----------------------
 2 files changed, 23 deletions(-)

diff --git a/next-lib/src/interlingua/CatIna.gf b/next-lib/src/interlingua/CatIna.gf
index 9dbaa5144..adfa365ea 100644
--- a/next-lib/src/interlingua/CatIna.gf
+++ b/next-lib/src/interlingua/CatIna.gf
@@ -50,7 +50,6 @@ concrete CatIna of Cat = CommonX ** open ResIna, Prelude in {
     Card = {s : Str; n : Number } ;
     Num = {s : Str; n : Number } ;
     Quant = {s : Number => Case => Str} ;
-    Art = {s : Number => Case => Str} ;
 
 -- Numeral
     
diff --git a/next-lib/src/interlingua/NounIna.gf b/next-lib/src/interlingua/NounIna.gf
index e99aed813..a61bca010 100644
--- a/next-lib/src/interlingua/NounIna.gf
+++ b/next-lib/src/interlingua/NounIna.gf
@@ -53,28 +53,6 @@ concrete NounIna of Noun = CatIna ** open ResIna, Prelude in {
       n = num.n
       } ;
 
-    DetArtOrd art num ord = {
-      s = \\c=>(art.s ! num.n !c) ++ num.s ++ ord.s ; 
-      n = num.n
-      } ;
-
-    DetArtCard art num = {
-      s = \\c=>(art.s ! num.n !c) ++ num.s ; 
-      n = num.n
-      } ;
-
-    DetArtSg art cn = {
-      s = \\c => art.s ! Sg ! c ++ cn.s ! Sg ; 
-      a = agrP3 Sg ;
-      isPronoun = False
-      };  -- iste pizza
-
-    DetArtPl art cn = {
-      s = \\c => art.s ! Pl ! c ++ cn.s ! Pl ; 
-      a = agrP3 Pl ;
-      isPronoun = False
-      };  -- iste pizza
-
     PossPron p = {s = \\_,c => casePrep [] c ++ p.possForm} ;
 
     NumPl = {s = []; n = Pl } ;