restricted Cat import in Numeral (for some languages; to do more)

lib/src/abstract/Numeral.gf

@@ -17,7 +17,7 @@
 -- parts of a numeral, which is often incorrect - more work on
 -- (un)lexing is needed to solve this problem.
 
-abstract Numeral = Cat ** {
+abstract Numeral = Cat [Numeral,Digits] ** {
 
 cat 
   Digit ;       -- 2..9

lib/src/english/NumeralEng.gf

@@ -1,4 +1,4 @@
-concrete NumeralEng of Numeral = CatEng ** open ResEng in {
+concrete NumeralEng of Numeral = CatEng [Numeral,Digits] ** open ResEng in {
 
 lincat 
   Digit = {s : DForm => CardOrd => Case => Str} ;

lib/src/finnish/NumeralFin.gf

@@ -1,4 +1,4 @@
-concrete NumeralFin of Numeral = CatFin **  open Prelude, ParadigmsFin, MorphoFin in {
+concrete NumeralFin of Numeral = CatFin [Numeral,Digits] **  open Prelude, ParadigmsFin, MorphoFin in {
 
 -- Notice: possessive forms are not used. They get wrong, since every
 -- part is made to agree in them.

lib/src/french/NumeralFre.gf

@@ -1,4 +1,4 @@
-concrete NumeralFre of Numeral = CatFre ** 
+concrete NumeralFre of Numeral = CatFre [Numeral,Digits] ** 
   open CommonRomance, ResRomance, MorphoFre, Prelude in {
 
 -- originally written in 1998, automatically translated to current notation...

lib/src/german/NumeralGer.gf

@@ -1,4 +1,4 @@
-concrete NumeralGer of Numeral = CatGer ** open MorphoGer, Prelude in {
+concrete NumeralGer of Numeral = CatGer [Numeral,Digits] ** open MorphoGer, Prelude in {
 
 flags optimize = all_subs ;
 

lib/src/italian/NumeralIta.gf

@@ -1,4 +1,4 @@
-concrete NumeralIta of Numeral = CatIta ** 
+concrete NumeralIta of Numeral = CatIta [Numeral,Digits] ** 
   open CommonRomance, ResRomance, MorphoIta, Prelude in {
 
 lincat 

lib/src/swedish/NumeralSwe.gf

@@ -1,4 +1,4 @@
-concrete NumeralSwe of Numeral = CatSwe ** open ResSwe, MorphoSwe, Prelude in {
+concrete NumeralSwe of Numeral = CatSwe [Numeral,Digits] ** open ResSwe, MorphoSwe, Prelude in {
 
 lincat 
   Digit = {s : DForm => CardOrd => Str} ;