kind of working implementation of cardinal numbers

This commit is contained in:
Herbert Lange
2019-06-25 17:17:46 +02:00
parent a35809e130
commit b90e036472
3 changed files with 192 additions and 68 deletions
+2 -2
View File
@@ -1,4 +1,4 @@
concrete CatLat of Cat = CommonX-[Adv] ** open ResLat, ParamX, Prelude in {
concrete CatLat of Cat = CommonX-[Adv,Voc] ** open ResLat, ParamX, Prelude in {
flags optimize=all_subs ;
@@ -60,7 +60,7 @@ concrete CatLat of Cat = CommonX-[Adv] ** open ResLat, ParamX, Prelude in {
--
---- Numeral
--
Numeral = ResLat.Numeral ;
Numeral = ResLat.TNumeral ;
Digits = {s : Str ; unit : Unit} ;
--
---- Structural