floating point numerals

src/maltese/NounMlt.gf

@@ -189,6 +189,10 @@ 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} ;
+
     -- Digits -> Ord
     -- 51st
     OrdDigits d = {s = d.s} ;