make it possible to extend numberals beyound 1000000

2018-07-27 19:17:53 +02:00
parent e7b1c47300
commit 1b4762c436
5 changed files with 36 additions and 30 deletions
@@ -80,7 +80,7 @@ concrete CatEng of Cat = CommonX - [Pol,SC,CAdv] ** open ResEng, Prelude in {

 -- Numeral

-    Numeral = {s : CardOrd => Case => Str ; n : Number} ;
+    Numeral = {s : Bool => CardOrd => Case => Str ; n : Number} ;
    Digits  = {s : CardOrd => Case => Str ; n : Number ; tail : DTail} ;

 -- Structural