From bf79f8a07499b31726fefc65a0934afb4c6f092c Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 7 Nov 2008 09:41:59 +0000
Subject: [PATCH] add TTAnt in CatBul

---
 next-lib/src/bulgarian/CatBul.gf | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/next-lib/src/bulgarian/CatBul.gf b/next-lib/src/bulgarian/CatBul.gf
index 6c467d3ce..6888dd511 100644
--- a/next-lib/src/bulgarian/CatBul.gf
+++ b/next-lib/src/bulgarian/CatBul.gf
@@ -115,6 +115,8 @@ concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {
 -- Tense, Anteriority and Polarity functions
 
   lin
+    TTAnt t a = {s = t.s ++ a.s ; t = t.t ; a = a.a} ;
+
     PPos  = {s = []} ** {p = R.Pos} ;
     PNeg  = {s = []} ** {p = R.Neg} ;
     TPres = {s = []} ** {t = R.Pres} ;