The new Decimal API

2023-08-21 20:14:26 +02:00
parent 58da8deca8
commit fb398c603e
147 changed files with 918 additions and 188 deletions
@@ -189,9 +189,7 @@ concrete NounMlt of Noun = CatMlt ** open ResMlt, Prelude, Maybe in {
    -- 51
    NumDigits d = {s = d.s ; n = d.n} ;

-    -- Digits -> Digits -> Card
-    -- 3.14
-    NumFloat d1 d2 = {s = \\c => d1.s ! NumNom ++ BIND ++ "." ++ BIND ++ d2.s ! c ; n = d1.n} ;
+    NumDecimal d = {s = d.s ; n = d.n} ;

    -- Digits -> Ord
    -- 51st