mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-29 18:48:37 -06:00
The new Decimal API
This commit is contained in:
@@ -107,9 +107,9 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
|
||||
numtype = IsDig
|
||||
} ;
|
||||
|
||||
NumFloat dig1 dig2 = baseNum ** {
|
||||
s = \\_,_ => dig1.s ! NCard ++ BIND ++ "." ++ BIND ++ dig2.s ! NCard ;
|
||||
n = Pl ;
|
||||
NumDecimal dec = baseNum ** {
|
||||
s = \\_,_ => dec.s ! NCard ;
|
||||
n = dec.n ;
|
||||
numtype = IsDig
|
||||
} ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user