(Hun) Remove unnecessary distinction between digits and numbers

This commit is contained in:
Inari Listenmaa
2020-04-26 14:35:12 +02:00
parent ef3dc464cb
commit 797171fb31
2 changed files with 2 additions and 2 deletions

View File

@@ -125,7 +125,7 @@ concrete NounHun of Noun = CatHun ** open
-- : Digits -> Card ;
NumDigits dig = dig ** {
s = \\place => dig.s ! NCard ;
numtype = IsDig ;
numtype = IsNum ;
} ;
-- : Numeral -> Card ;

View File

@@ -112,7 +112,7 @@ param
CardOrd = NOrd | NCard ; -- Not used yet
NumType = NoNum | IsDig | IsNum ;
NumType = NoNum | IsNum ;
oper
isNum : {numtype : NumType} -> Bool = \nt -> case nt.numtype of {