making TryPol compile

src/polish/GrammarPol.gf

@@ -13,7 +13,7 @@ concrete GrammarPol of Grammar =
   RelativePol,
   ConjunctionPol,
   PhrasePol,
-  TextPol,
+  TextX - [CAdv],
   StructuralPol,
   IdiomPol
    ** { flags  startcat = Phr ; unlexer = text ; lexer = text ;} ;

src/polish/TextPol.gf

@@ -1,9 +0,0 @@
-concrete TextPol of Text = {
-
-  lin
-    TEmpty = {s = []} ;
-    TFullStop x xs = {s = x.s ++ "." ++ xs.s} ;
-    TQuestMark x xs = {s = x.s ++ "?" ++ xs.s} ;
-    TExclMark x xs = {s = x.s ++ "!" ++ xs.s} ;
-
-}